add haskell recursive sum