first function definitions in haskell