let
of_list l =
List
.fold_left (
fun
s (lo,hi)
->
add_range s lo hi) empty l