f xs a = foldM (+) a xs