> import Sound.DF

> do { n <- white_noise_m
>    ; i <- impulse 9.0 0.0
>    ; l <- latch n i
>    ; o <- sin_osc (l * 400.0 + 500.0) 0.0
>    ; audition [] (out1 (o * 0.2)) }