let any_overlap tl =
  let tl = List.sort ~cmp:compare_lo tl in
  let rec loop tl =
    match tl with
      | [] | _::[] -> false
      | u::v::tl -> v.lo <= u.hi || loop (v::tl)
  in loop tl