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:                     :single-line-mode t)
      (format nil "~a" code)
      (funcall color-fn "\\1")))
  
  (output-as-html (format nil "<pre>~a</pre>"
                          (pair-coloring "{" "}" #'green
                                        (pair-coloring "[" "]" #'red *bracket-sample*)))
                  "tmp.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
  