CPS変換

通常の関数呼び出し
        (define (my-func x)
          (let ((y (+ x 1)))
            (let ((z (GET-NEW-VALUE)))
              (+ y z))))
GET-NEW-VALUEをCPSで呼ぶ
        (define (my-func x)
          (let ((y (+ x 1)))
            (GET-NEW-VALUE
               (lambda (z)
                 (+ y z)))))