sig
  type t
  val make : int -> float * float * float * float -> Audio.Mono.Effect.ADSR.t
  type state
  val init : unit -> Audio.Mono.Effect.ADSR.state
  val release : Audio.Mono.Effect.ADSR.state -> Audio.Mono.Effect.ADSR.state
  val dead : Audio.Mono.Effect.ADSR.state -> bool
  val process :
    Audio.Mono.Effect.ADSR.t ->
    Audio.Mono.Effect.ADSR.state ->
    Audio.Mono.buffer -> int -> int -> Audio.Mono.Effect.ADSR.state
end