> import Sound.DF

> do { n <- white_noise_m
>    ; dt <- let f x = lin_exp (x + 2.0) 1.0 2.0 0.0001 0.01
>            in fmap f (lf_saw 0.1 0.0)
>    ; c <- buf_comb_n 0 (n * 0.1) dt 0.2
>    ; audition [b_alloc 0 44100] (out1 c) }

> do { i <- impulse 0.5 0.0
>    ; n <- white_noise_m
>    ; e <- decay (i * 0.5) 0.2
>    ; c <- buf_comb_n 0 (e * n) 0.2 3.0
>    ; audition [b_alloc 0 44100] (out1 c) }