add cps.scm