(loop(do((a(read))'0(d 500(/ d 2)))((format(/= .'a)"~D ~[= ~;>~:;<~] "(decf .'(round(-(* #1=(signum(- .'a))d)0.1)))#1#))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page