Add Haskell Solution for problem 1