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