Haskell for 3