sig
  val white_noise : Audio.buffer -> int -> int -> unit
  class type t =
    object
      method dead : bool
      method fill : Audio.buffer -> int -> int -> unit
      method fill_add : Audio.buffer -> int -> int -> unit
      method release : unit
      method set_frequency : float -> unit
      method set_volume : float -> unit
    end
  class of_mono : Audio.Mono.Generator.t -> t
  class chain : Audio.Generator.t -> Audio.Effect.t -> t
end