3.3.6 in Haskell