haskell for 6