# Pastebin Kd713vGT
```
(define k (with-continuation-mark 'x 1 (call/cc values)))
(with-continuation-mark 'x 2 (k (continuation-mark-set-first (current-continuation-marks 'x))))
(with-continuation-mark 'x 2 (call-in-continuation k (lambda () (continuation-mark-set-first (current-continuation-marks 'x)))))
```