let
to_range_list t =
List
.map ~f:(
fun
{
Range
.lo; hi}
->
lo,hi) t