The game of HILO coded in haskell

hilo.hs

module Hilo where
 
  import System.Random as R
 
  jogo :: Int -> Int -> IO Int
  jogo n x = do
    putStr "Tentativa? "
    str <- getLine
    let y = read str
    if y == x then
      return n
    else if y > x then
      do
        putStrLn "Demasiado alto!"
        jogo (n+1) x
    else
      do
        putStrLn "Demasiado baixo!"
        jogo (n+1) x
 
  main :: IO ()
  main = do
    numero <- R.randomRIO(1,100)
    n <- jogo 1 numero
    putStrLn ("Tentativas " ++ show(n))