ADD: Real World Haskell Ch3 done