(while 1(prn(int(+(Math/pow(+(Math/pow(read)2/3)(Math/pow(read)2/3))3/2)1/2))))