-- changed ; simple composition of hpz1 and greater_than (pseudo ugen)
let s = lfNoise0Id 'α' kr 2
    c = changed s 0
    c' = decay2 c 0.01 0.5
in sinOsc ar (440 + mce2 s c' * 440) 0 * 0.1

-- changed ; sinOsc is constantly changing
let s = sinOsc ar 440 0
    c = changed s 0
in s * c * 0.2

-- changed ; fixed number of sample impulses ; https://fredrikolofsson.com/f0blog/impulse-train/
let dur = 1
    num = 8
in changed (min (ceil (sweep ar 0 (num / dur))) num) 0