import Control.Monad.State

random :: State Int Int
random = state $ \x ->
    let y = (x+11) `mod` 17
    in (y,y)

random3 = do
    x <- random
    y <- random
    z <- random
    return (x,y,z)