En lenguaje Haskell: