Codes while reading "The Haskell Road to Logic, Maths and Programming"