added Haskell solution for problem 16