(loop(setf a(read)b(read))(format t"~D ~[=~;>~:;<~] ~D
"a(signum(- a b))b))