lpz1 in

Two point average filter

> do { n <- whiteNoise AR
>    ; audition (out 0 (lpz1 (n * 0.25))) }