First haskell snippet