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