(while:prn:num(sqrt:+ #0=(expt(read)2)#0#)2 0)