Biocaml 0.4-dev : Biocaml_genomeMap.Make.Selection.of_stream

let of_stream e =

   let accu = Accu.create Biocaml_iset.empty fst (fun (_,r) -> Range.(fun x -> Biocaml_iset.add_range x r.lo r.hi)) in

   Stream.iter ~f:(fun loc -> Accu.add accu loc loc ) e ;

   Map.of_stream (Accu.stream accu)