Dois exercicios em Haskell