sample' :: [Double]
sample' = take 40000 $ randomRs (-1000, 1000) (mkStdGen 24)
sample' :: [Double]
sample' = take 40000 $ randomRs (-1000, 1000) (mkStdGen 24)
sample' = take 40000 $ randomRs (-1000, 1000) (mkStdGen 24)