(= a(read))(while:-- a(expt 10(trunc:/(log prn.a)2.4)))