randomValues :: Int -> Int -> [RandomValue]
randomValues rate dur  = map buildVal (zip3 [0..(rate * dur)] (whiteRandom 100) (whiteRandom 200))
  where buildVal ( _ ,val1',val2') = RandomValue  (val1' * 0.1)  (val2' * 0.1)  
randomValues :: Int -> Int -> [RandomValue]
randomValues rate dur  = map buildVal (zip3 [0..(rate * dur)] (whiteRandom 100) (whiteRandom 200))
  where buildVal ( _ ,val1',val2') = RandomValue  (val1' * 0.1)  (val2' * 0.1)  
randomValues rate dur  = map buildVal (zip3 [0..(rate * dur)] (whiteRandom 100) (whiteRandom 200))
  where buildVal ( _ ,val1',val2') = RandomValue  (val1' * 0.1)  (val2' * 0.1)  