Random monad example

-- The code here is stolen from a comment in the MonadRandom source code.
-- dependents on MonadRandom library

import Control.Monad.Random

die :: RandomGen g => Rand g Int
die = getRandomR (1,6)

dice :: RandomGen g => Int -> Rand g [Int]
dice n = sequence (replicate n die)

main = do
    rolls <- evalRandIO $ dice 10
print rolls