Add Haskell solution to accumulate