Esse programa em Haskell trabalha com números não negativos, ou seja, somente números positivos e zero. 