Codes from Learning Haskell