Solve problems 28,36 using Haskell.