let
(<) i1 i2 = negative (
Int64
.compare i1 i2)