lpz1 in Two point average filter > n <- whiteNoise AR > audition (out 0 (lpz1 (n * 0.25)))