(loop(format t"~,2F
"(sqrt(+ #0=(expt(read)2)#0#))))