Added Haskell solution to problem 21