to testwritefiles
	imax=20
	x=rSeqFA 0 360 imax
	y=sin x
	fn="test.dat
	openwrite fn
	setwriter fn
	for [i 1 imax]
	[	(print x.i y.i)
	]
	setWriter []
	close fn
end