(define cont #f)

(define (cont-test i)
  (print "before")
  (call/cc (lambda (k) (set! cont k)))
  (print "after")
  (set! i (+ 1 i))
  i)

(cont-test 1)
;(define (leaf-count/cps tree cont)
;  (if (pair? tree)
;      (leaf-count/cps (car tree)      
;        (lambda (n)
;          (leaf-count/cps (cdr tree)
;            (lambda (m) (cont (+ n m))))))
;      (cont 1)))
;
;(define tree '((a . b) (c . d) . e))