(progn
(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)