P21: Added Haskell solution.