-- twoZero
let n = whiteNoiseId 'α' ar * 0.1
    f = xLine kr 20 20000 8 RemoveSynth
in twoZero (n * 0.125) f 1