-- generate list of pink floating values
genPink :: PinkNoise -> Int -> Int -> [Double]
genPink pn rate dur = map  calcVal  (getPink pn rate dur)
  where calcVal pn'= runningSum pn'  + rand2 pn'
genPink :: PinkNoise -> Int -> Int -> [Double]
genPink pn rate dur = map  calcVal  (getPink pn rate dur)
  where calcVal pn'= runningSum pn'  + rand2 pn'
genPink pn rate dur = map  calcVal  (getPink pn rate dur)
  where calcVal pn'= runningSum pn'  + rand2 pn'