import System.Random

guess :: Int -> IO Bool
guess n = do
  putStrLn "Enter a number please"
  x <- readLn :: IO Int
  let (msg, ok) = if x < n then ("Your number is lesser", False)
      else if x > n then ("Your number is greater", False)
      else ("You are correct!", True)
  putStrLn msg
  return ok

main :: IO()
main = do
  n <- randomRIO (1, 10)
  let cycle = do
      ok <- guess n
      if ok then return () else cycle
  cycle