Code for Real World Haskell Book