GuessTheNumber

main :: IO()
main = do
    putStr "Enter number to guess: "
    line1 <- getLine
    let a = read line1 :: Int
    guessTheNum a

guessTheNum :: Int -> IO()
guessTheNum num = do
    input <- getLine
    let n = read input :: Int
    if num == n then
        putStrLn "Yes"
    else
        if num > n then
            do
                putStrLn "UP"
                guessTheNum num
        else
            do
                putStrLn "DOWN"
                guessTheNum num