;; The code that generates self1:
(define x 2)
(define ref '(ref~: (list "self" x) "self" x))
(define p
  '(pre:
    (yellow: (b: ";; The code that generates " (eval ref) ":"))
    newline
    (format "(define x ~s)" (- 3 x))
    newline
    (format "(define ref '~s)" ref)
    newline
    "(define p"
    newline
    "  '("
    (map (lambda (x) (format "~s~%    " x)) p)
    "))"
    newline
    "(define html (eval p))"
    newline
    (b: "(thunk (send-auto-html html)) ")
    ))
(define html (eval p))
(thunk (send-auto-html html))