(loop(format t"~D
"(abs(read))))