sig
  type ('a, 'b) t
  val make :
    ('a Biocaml_genomeMap.location * 'b) Stream.t ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t
  val fold :
    ('a -> Biocaml_genomeMap.range -> 'b -> 'c -> 'c) ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t -> 'c -> 'c
  val pwfold :
    ('a -> Biocaml_genomeMap.range -> 'b list -> 'c -> 'c) ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t -> 'c -> 'c
  val intersects :
    'a Biocaml_genomeMap.location ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t -> bool
  val to_stream :
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t ->
    ('a Biocaml_genomeMap.location * 'b) Stream.t
  val union :
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t
  val add :
    'a Biocaml_genomeMap.location ->
    'b ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t ->
    ('a, 'b) Biocaml_genomeMap.LMap_spec.t
end