import System.Randomimport Control.Monad(when)
main = do ranGen <- getStdGen let (rand,_) = randomR (1,10) ranGen :: (Int,StdGen)
putStr "Guess a number between 1 and 10 : "