Added problem 1 haskell solution