(while:prn:num:/ #0=(log(read))#0#)