data={677,553,720,520,652,559,597,471,577,807,502,733};

Export["/Users/troyday/Desktop/Transfer/BB Chapter11/data.txt",data,"TSV"]