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