(while:prn:num(*(abs:read)6.28318)3 0)