> import Sound.DF

> map (\i -> lin_lin i (-1) 1 0 1) [-1, -0.9 .. 1.0]

> do { s <- lf_saw 1.0 0.0
>    ; o <- sin_osc (lin_lin s (-1.0) 1.0 220.0 440.0) 0.0
>    ; audition [] (out1 (o * 0.1)) }