let of_stream e = Biocaml_stream.fold ~f:(fun s (lo,hi) -> add_range s lo hi) ~init:empty e