update CPS ap syntax
update specfication
using equal? comparison instead of eq? (or eqv?)
update to meet spec