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