nv-tw-2013-12-04.hs

-- https://twitter.com/headcube/status/408145586970324992 (nv)
let mean l = sum l / fromIntegral (length l)
    f j =
      let i = j + 1
          a = saw ar ((1 / i + 1) / 6)
          p = pluck a a 1 (1 / i / (3 - lfPulse ar (1 / i) 0 0.5) / 30) 9 (0.9 / i)
          x = (0.5 ** i) * p
          o = sinOsc ar 2 0 + mce2 4 9
      in combC x 1 (o * 0.001) 0 - x
in mean (map f [0 .. 8]) / 9