Biocaml 0.4-dev : Biocaml_genomeMap.Make.LMap.intersecting_elems

let intersecting_elems lmap (k, { Range.lo ; hi }) =

  match Map.find lmap k with

  | Some x ->

   T.find_intersecting_elem lo hi x

   /@ (fun (lo,hi,x) -> (k, ok_exn (Range.make lo hi)), x)

  | None -> Stream.empty ()