forget new
: new ;
off printload
on redefine

: p1 td 10000 0 do 5.0 7.0 f* ,drop loop td ;

: p2 td 10000 0 do 5 7 * drop loop td ;

: p3 td 10000 0 do 5 7 * . loop ;

: p4 td 90 0 do i double float 
       22.0 f* 7.0 180.0 f* f/ sin f. crlf 30 +loop td ;
	
: p5 td 90 0 do i double float 
      3.1415 180.0 f/ f* sin f. crlf 30 +loop td ;


22.0 7.0 f/ 180.0 f/ ,const k

: p6 td 90 0 do i double float
     k f* sin f. crlf 30 +loop td ;