let (<>) a b = compare a b <> 0