暗黙の継続

call/cc
見えない継続を取り出す

     (let ((x (FUNC)))      ⇔   (FUNC/cps
       ...)                        (lambda (x) ...))

     (define (FUNC)         ⇔   (define (FUNC/cps k)
       (call/cc                    ...)
         (lambda (k) ...)))