(while:prn:num(*(read)57.2957)1 0)