anchor.diff:      (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))
  
positive.code: (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>" ))
  
negative.code: (defun yellow (str)
    (color 255 255 0 str))
  
  (defun pair-coloring (start end color-fn code)
    (regex-replace-all
      (create-scanner `(:sequence
  