;;; -*-Scheme-*-

(let ((k (call-with-current-continuation (lambda (c) c))))
  (display 1)
  (call-with-current-continuation (lambda (c) (k c)))
  (display 2)
  (call-with-current-continuation (lambda (c) (k c)))
  (display 3)
  (newline))