anchor.diff:                (when need-whitespace-p
                   (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
   		       (width sink))
  -                    (%write-rune 32 sink)
  +                    (%write-rune #/U+0020 sink)
                       (sink-fresh-line sink)))
                 (loop
   		  with y = (sink-ystream sink)
  
positive.code:               (setf need-whitespace-p (< w n))
                (setf pos next))))
          (t
            (%write-rune 32 sink))))))
  
  (defun unparse-string (str sink)
    (let ((y (sink-ystream sink)))
  
negative.code: 
  (defun sink-fresh-line (sink)
    (unless (zerop (ystream-column (sink-ystream sink)))
      (%write-rune #/U+000A sink)		;newline
      (indent sink)))
  
  (defun maybe-close-tag (sink)
  