Codes tests when I am reading "Real World Haskell"