Exame 2018 Exercicio 4

maximo :: IO ()
maximo = do xs <- lelista []
            print (maximum xs)

lelista :: [Int] -> IO [Int]
lelista xs = do n <- getLine
                if (read n) == 0 then return xs
                                 else do l <- lelista ((read n) : xs)
                                         return l

--- Para compilar
{-
main :: IO ()
main = maximo
-}