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

let to_stream sel =

   (Map.to_stream sel)

   /@ (fun (k,s) -> Stream.map ~f:(fun (lo,hi) -> k, ok_exn (Range.make lo hi)) (Biocaml_iset.to_stream s))

   |> Stream.concat