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