Trying haskell