-- linRand ; c.f. hsc3-lang/Sound/Sc3/Lang/Random/Gen.hs:linrand
let f = linRandId 'α' 200.0 10000.0 (mce [-1, 1])
    e = line kr 0.4 0 0.01 RemoveSynth
in fSinOsc ar f 0 * e