Add digital sum procedure