The Biocaml Library : Biocaml_cel.pm

let pm bpmap cels =

 let cels = List.map ~f:Tbl.of_cel2 cels in

 let f ans r =

  let datl = List.map cels (fun cel -> Tbl.find cel r.Bpmap.pmcoord) in

  (r.Bpmap.probe, datl) :: ans

 in

 Bpmap.fold f [] bpmap