Thinking Functionally With Haskell, Bird