thx (perry cook)

> import Sound.SC3
> import System.Random

> main =
>   let { rvb i rT 
>           = let { d = mce [0.0297, 0.0371, 0.0411, 0.0437]
>                 ; c = mix (combN i 0.05 d rT * 0.25)
>                 ; f = (allpassN c 0.01 0.005 0.096835) }
>             in allpassN f 0.01 0.0017 0.032924
>       ; mk_env z0 t0 z1 t1 t2 z2 t3 c
>           = let { z = [z0, z1, z1, z2, z2]
>                 ; t = [t0, t1, t2, t3]
>                 ; e = env z t [c, c, c] (-1.0) (-1.0) }
>             in envGen KR 1 1 0 1 RemoveSynth e
>       ; mk_node t4 f0 f1 l 
>           = let { f = mk_env f0 t0 f0 t1 t2 f1 (t3 + t4 + t5 + t5) EnvLin
>                 ; g = mk_env 0 t0 0.1 (t1 + t2 + t3) t4 0.0 (t5 + t5) EnvLin
>                 ; s = saw AR f
>                 ; t0 = 0.035
>                 ; t1 = 0.2267573696
>                 ; t2 = 2.2675736061
>                 ; t3 = 6.8027210884
>                 ; t5 = 1.75 }
>             in pan2 s l g
>       ; thx 
>           = let { s = foldl1 (+) (zipWith3 (mk_node t4) f0 f1 l)
>                 ; t4 = 7.9365079365
>                 ; n = 30
>                 ; l = take n (randomRs (-1.0, 1.0) (mkStdGen 1))
>                 ; f = [29, 87.5, 116, 175, 233, 350, 524, 880, 1048, 1760]
>                 ; f0 = take n (randomRs (200.0, 800.0) (mkStdGen 2))
>                 ; f1 = take n (cycle f) }
>             in out 0 (rvb (mce [s]) t4) }
>   in audition thx

http://ccrma-mail.stanford.edu/pipermail/stk/2007-January/000327.html