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