> import Sound.DF

> do { c1 <- iir2 (\x y1 _ -> x + y1) 0.001
>    ; o1 <- sin_osc (c1 + 220.0) 0
>    ; c2 <- iir2 (\x _ y2 -> x + y2) 0.001
>    ; o2 <- sin_osc (c2 + 220.0) 0
>    ; audition [] (out2 (o1 * 0.1, o2 * 0.1)) }