Codigo en haskell