add sum-of-p.scm