(loop(princ(round(expt(+ #0=(expt(read)2/3)#0#)3/2)))(terpri))