(while:prn:round:expt(+(expt(read)2/3)(expt(read)2/3))3/2))