let compare l1 l2 = match (l1, l2) with | (Some l1, Some l2) -> Int64.compare l1 l2 | (None, None) -> 0 | (Some _, None) -> (-1) | (None, Some _) -> 1