oscillator :: Int -> Vector Double -> StochasticOscillator
oscillator l v =
  let o = oscV l v
      os = Vec.map snd o
      tp = mavg (WindowSize 3) os
      l' = fromIntegral l
      f (j, x) = (j+l', x)
  in StochasticOscillator {
    osc = o