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

let overlap sel (k,r) = Biocaml_iset.(

    match Map.find sel k with

    | Some x ->

     inter Range.(add_range empty r.lo r.hi) x

     |> cardinal

    | None -> 0

   )