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