> import Sound.DF

> do { n <- white_noise_m
>    ; r <- resonz (n * 0.5) 440.0 0.1
>    ; audition [] (out1 r) }

> do { n <- white_noise_m
>    ; f <- fmap (\x -> x * 3500.0 + 4500.0) (lf_saw 0.1 0.0)
>    ; r <- resonz (n * 0.5) f 0.05
>    ; audition [] (out1 r) }