(loop(do((a(read))'0(d 500(/ d 2)))((format(/= .'a)"~D ~[=
~;>~:;<~]
"(decf .'(round(-(* #1=(signum(- .'a))d)0.1)))#1#))))