anchor.diff:  (in-package :pphtml)
  -
  -(defparameter *iota0*
  -  '(defun iota (n)
  -     (loop for i from 0 to (1- n) collect i)))
   
   (defun output-as-html (body &optional (out *standard-output*))
     (let ((format-string "<html><head><title> pretty print </title></head><body bgcolor=\"000000\" text=\"ffffff\"><p>~%~a~%</p></body></html>" ))
  
positive.code:     (format out format-string body)
      (with-open-file (outstrm out :direction :output :if-does-not-exist :create :if-exists :supersede)
        (format outstrm format-string body)))))
  
  (output-as-html
    (format nil "<pre>~%~a~%</pre>" (format nil "~a" *iota0*))
    "tmp.html")
  
  (defun color (r g b str)
    (format nil "<font color=\"~2,'0x~2,'0x~2,'0x\">~a</font>" r g b str))
  
negative.code:                     :single-line-mode t)
      (format nil "~a" code)
      (funcall color-fn "\\1")))
  