Add Haskell solution to problem 2