sig
  val of_audio : Audio.buffer -> int -> string -> int -> int -> unit
  val to_audio : string -> int -> Audio.buffer -> int -> int -> unit
end