(loop(set'a(read))(format t"~VR
"(read)a))