sig
  class type t =
    object
      method close : unit
      method write : Audio.buffer -> int -> int -> unit
    end
  class to_wav_file : int -> int -> string -> t
end