added Haskell solution for problem 21 (very slow)