Codes while reading "Introduction to Functional Programming using Haskell"