-- gate
let t = lfPulse ar 1 0 0.1 in gate (fSinOsc ar 500 0 * 0.25) t