(while(= a(read)b(read))(prn a" "(if(> a b)'>(< a b)'<'=)" "b))