: hdg  9 spcs " SINE" ." 9 spcs " COSINE" ." crlf 
       9 spcs " ----" ." 9 spcs " ------" ." crlf ;

: sint hdg 90 0 do i dup . 3 spcs double float d>r ,dup 
                sin f. 5 spcs cos f. crlf 10 +loop ;