Instrument
type t = {
note_on : int -> float -> unit;
note_off : int -> unit;
set : string -> float -> unit;
fill : Signal.stereo -> unit;
}
val sine : unit -> t
val gate_samples : float