first haskell code