> import Sound.DF

> do { o1 <- fmap (\x -> x * 200.0 + 200.0) (lf_pulse 3.0 0.0 0.3)
>    ; o2 <- fmap (\x -> x * 0.1) (lf_pulse o1 0.0 0.2)
>    ; audition [] (out1 o2) }