(loop(format t"~,2F
"(abs(complex(read)(read)))))