create sintable	8000 alloc

: mktable
here push
sintable h !
100000000 0
2000 do

	over 100000 / -
	swap over + swap
	over 10000 / ,
loop
2drop
pop h !	;

mktable
forget mktable

: cos (	num -- result)
abs 2000 mod 4 * sintable + @ ;

: sin 500 - cos	;

rh sintable