let
reversep cmp a b =
Option
.map (
~-
) (cmp a b)