Create a9-1.rkt

CPS value-of