(loop(format t"~A
"(round(+(/(expt(read)2)(set'x(read)))x)2)))