Codes while reading "The Haskell School of Expression"