Codes while reading "Learn You a Haskell for Great Good"