import Control.Monad.Random

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

main = do
    roll1 <- evalRandIO $ die
    roll2 <- evalRandIO $ die
    print (roll1 + roll2)