sig
  type ('a, 'b) t
  val make :
    ('b list -> 'c) ->
    ('a Biocaml_genomeMap.location * 'c) Stream.t ->
    ('a, 'c) Biocaml_genomeMap.Signal.t
  val eval : 'a -> int -> ('a, 'b) Biocaml_genomeMap.Signal.t -> 'b
  val fold :
    ('a -> Biocaml_genomeMap.range -> 'b -> 'c -> 'c) ->
    ('a, 'b) Biocaml_genomeMap.Signal.t -> 'c -> 'c
  val to_stream :
    ('a, 'b) Biocaml_genomeMap.Signal.t ->
    ('a Biocaml_genomeMap.location * 'b) Stream.t
end