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