let
to_range_list t =
List
.map ~f:
Range
.to_pair t