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