-- lpz1 let n = whiteNoiseId 'α' ar * 0.05 in mce2 (n * 0.25) (lpz1 n)