hpz1 in

Two point difference filter.

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