import           Control.Monad (replicateM, forM)
import           Data.Random
import           System.Random.MWC

withSystemRandomIO :: (GenIO -> IO a) -> IO a          
withSystemRandomIO = withSystemRandom                   

main = do
    bs <- withSystemRandomIO $ runRVar
          $ replicateM 1000  $ randomElement [i | i <- [1..100]]
    print bs