sample :: [Double]
sample = take 2000 $ randomRs (-100, 100) (mkStdGen 4)
sample :: [Double]
sample = take 2000 $ randomRs (-100, 100) (mkStdGen 4)
sample = take 2000 $ randomRs (-100, 100) (mkStdGen 4)