I did some monad magic, and it actually worked.

monad..hard.monad.hs

import Control.Monad.Loops
import System.Random

specifify :: Int -> Int
specifify i = i `mod` 100

use :: (Int, StdGen) -> IO StdGen
use (i, g) = (putStrLn $ "New rand int: " ++ show (specifify i)) >> return g

main = getStdGen >>= iterateM_ (use . random)

$ ./monad..hard.monad | head
New rand int: 0
New rand int: 40
New rand int: 12
New rand int: 86
New rand int: 46
New rand int: 32
New rand int: 54
New rand int: 15
New rand int: 18
New rand int: 33