toPlot :: S.Seq (S.Seq Onset) -> Int -> [(Double, Double)]
toPlot fs n = snd $ F.foldl step (0.0, []) fs'
    where   fs' = fmap (flip S.index $ n) fs
            --step :: (Int, [(Int, Double)]) -> Double -> (Int, [(Int, Double)])
            step (i, es) e = (i+1.0, es++[(i, power e)])
toPlot :: S.Seq (S.Seq Onset) -> Int -> [(Double, Double)]
toPlot fs n = snd $ F.foldl step (0.0, []) fs'
    where   fs' = fmap (flip S.index $ n) fs
            --step :: (Int, [(Int, Double)]) -> Double -> (Int, [(Int, Double)])
            step (i, es) e = (i+1.0, es++[(i, power e)])
toPlot fs n = snd $ F.foldl step (0.0, []) fs'
    where   fs' = fmap (flip S.index $ n) fs
            --step :: (Int, [(Int, Double)]) -> Double -> (Int, [(Int, Double)])
            step (i, es) e = (i+1.0, es++[(i, power e)])