doGuessing num = do
	putStrLn "Enter your guess:"
	guess <- getLine
	if (read guess) < num
		then do putStrLn "Too low!"
			doGuessing num
		else if (read guess) > num
		then do putStrLn "Too high!"
			doGuessing num
		else do putStrLn "You Win!"