ADD: Real World Haskell Chapter4