import System.IO

-- Suas funções aqui, com comentários

play ... = do
    ...
    putStrLn chute
    ...
    answer <- getLine
    ...
    play ...	      

-- Programa principal
main = do
    hSetBuffering stdout LineBuffering
    play ...