-- bpz2 let n = whiteNoiseId 'α' ar in bpz2 (n * 0.1)