> (+ 2 (call/cc (lambda (cont) (set! c cont) 3)))
5
> (c 2)
4

> (let ([x (+ 2 (call/cc (lambda (cont) (set! c cont) 3)) 1)])
    (* x 2))
12
> (c 2)
10