sig
  type pt = string * int * int * float
  type t
  type format = Bed | VariableStep | FixedStep
  exception Bad of string
  val of_list : Biocaml_wig.pt list -> Biocaml_wig.t
  val to_list : Biocaml_wig.t -> Biocaml_wig.pt list
  val iter : (Biocaml_wig.pt -> unit) -> Biocaml_wig.t -> unit
  val fold : ('-> Biocaml_wig.pt -> 'a) -> '-> Biocaml_wig.t -> 'a
  val to_file : ?fmt:Biocaml_wig.format -> Biocaml_wig.t -> string -> unit
  val to_channel :
    ?fmt:Biocaml_wig.format ->
    Biocaml_wig.t -> Pervasives.out_channel -> unit
  val of_channel :
    ?fmt:Biocaml_wig.format ->
    ?chr_map:(string -> string) ->
    ?header:bool ->
    ?increment_lo_hi:int * int -> Pervasives.in_channel -> Biocaml_wig.t
  val of_file :
    ?fmt:Biocaml_wig.format ->
    ?chr_map:(string -> string) ->
    ?header:bool -> ?increment_lo_hi:int * int -> string -> Biocaml_wig.t
end