(loop(format t"~,1F
"(*(read)57.2957)))