Exame 2018 Exercicio 4

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

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

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