let of_range_list l = 
  let f acc (x,y) =
    match Range.make_opt x y with
      | Some range -> range::acc 
      | None -> acc
  in
  to_canonical (List.fold ~f ~init:[] l)