randomList :: Random a => a -> a -> IO [a]
randomList a b = randomRs (a,b) <$> newStdGen
randomList :: Random a => a -> a -> IO [a]
randomList a b = randomRs (a,b) <$> newStdGen
randomList a b = randomRs (a,b) <$> newStdGen