(loop(format t"~,3F
"(* 2(abs(read))pi)))