(let

  _ (defun double (x)
      (call-cc (lambda (return)
          (list (quote bogus) (return (implode (list x x))) (quote junk)))))

  (assert (eq 'foofoo (double (quote foo))))
)