module TestRandomIO where

import Control.Monad
import Control.Exception
import System.Random

blows = do
  rs <- replicateM 1000000 randomIO :: IO [Int]
  print $ last rs

works = do
  rs <- replicateM 1000000 (evaluate =<< randomIO) :: IO [Int]
  print $ last rs