(define f (lambda (x)
(if (= x 0)
x
(check ( = 10
(call-cc (lambda (k) (progn (define cc k) (f (- x 1))))))))))
(f 1)
(cc 10)