(let ((kn (call/cc (lambda (cc) (cons cc 0)))))
  (let ((k (car kn))
        (n (cdr kn)))
    (print n)
    (k (cons k (+ n 1)))))