Added Haskell solution for problem 1