p:printf;while(a:?read(?-,?-,~))#~do(b:c:1000,while a#(b:fix(.5+b+signum(a-b)*c:c/2))do p(?t,"~d ~:[>~;<~]
",b,is(a>b)),p(?t,"~d =

",b));