numbers.hs

import System.Random

guessNumber :: Int -> IO ()
guessNumber answer = do
  guess <- getLine
  if read guess == answer
    then putStrLn "You Win!"
    else guessWrong answer (read guess)

guessWrong :: Int -> Int -> IO ()
guessWrong answer guess = do
  if guess < answer
    then do
      putStrLn "Too low!"
    else do 
      putStrLn "Too high!"
  guessNumber answer

randomInt :: IO Int
randomInt = getStdRandom $ randomR (1, 1000)

main = do
  putStrLn "I picked a number between 1 and 1000, try and guess it!"
  number <- randomInt
  guessNumber number