sig
  type 'a t
  exception Not_a_wav_file of string
  type 'a read_ops = {
    really_input : 'a -> string -> int -> int -> unit;
    input_byte : 'a -> int;
    input : 'a -> string -> int -> int -> int;
    close : 'a -> unit;
  }
  val in_chan_ops : Pervasives.in_channel Wav.read_ops
  val fopen : string -> Pervasives.in_channel Wav.t
  val read_header : 'a Wav.read_ops -> 'a -> 'a Wav.t
  val in_chan_read_header :
    Pervasives.in_channel -> Pervasives.in_channel Wav.t
  val sample : 'a Wav.t -> string -> int -> int -> int
  val info : 'a Wav.t -> string
  val channels : 'a Wav.t -> int
  val sample_rate : 'a Wav.t -> int
  val sample_size : 'a Wav.t -> int
  val data_length : 'a Wav.t -> int
  val close : 'a Wav.t -> unit
  val header :
    ?len:int ->
    channels:int -> sample_rate:int -> sample_size:int -> unit -> string
  val duration : 'a Wav.t -> float
end