anchor.diff:  
   (defun indent (sink)
     (dotimes (x (current-indentation sink))
  -    (%write-rune 32 sink)))
  +    (%write-rune #/U+0020 sink))) ; space
   
   (defun start-indentation-block (sink)
     (incf (current-indentation sink) (indentation sink)))
  
positive.code: 
  (defun sink-fresh-line (sink)
    (unless (zerop (ystream-column (sink-ystream sink)))
      (%write-rune 10 sink)
      (indent sink)))
  
  (defun maybe-close-tag (sink)
  
negative.code:               (when need-whitespace-p
                  (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
  		       (width sink))
                      (%write-rune #/U+0020 sink)
                      (sink-fresh-line sink)))
                (loop
  		  with y = (sink-ystream sink)
  