getPink::PinkNoise -> Int-> Int -> [PinkNoise]
getPink pn rate dur  = scanl nextpValue pn (randomValues rate dur)
getPink::PinkNoise -> Int-> Int -> [PinkNoise]
getPink pn rate dur  = scanl nextpValue pn (randomValues rate dur)
getPink pn rate dur  = scanl nextpValue pn (randomValues rate dur)