(defun print-quine (quine)
   (cw quine quine))
(print-quine
"(defun print-quine (quine)
  (cw quine quine))
(print-quine ~x0)~%")