Codes from Real World Haskell