sig
  type t
  val create : int -> Audio.Mono.Buffer_ext.t
  val duration : Audio.Mono.Buffer_ext.t -> int
  val prepare : Audio.Mono.Buffer_ext.t -> int -> Audio.Mono.buffer
end