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