(= n(*(read)2))(while(> n 1)(= n(prn:/(round n)2.0)))