anchor.diff:                            (rec (rope-node-right rope)))
                  (simple-string (write-1 rope))
                  (string (write-1 rope))
  +               (symbol (write-1 rope))
                  (sequence (map nil #'write-1 rope)))))
       (declare (dynamic-extent #'write-1 #'rec))
       (when escape (write-char #\" stream))
  
positive.code:                   (visit-string rope i))
                   (string
                    (visit-string rope i))
                   (rope-node
                    (visit (rope-node-right rope)
                           (visit (rope-node-left rope) i)))
  
negative.code:            (rope-ref (rope-node-right rope)
                      (- i left-count)))))
      (simple-string (aref rope i))
      (string (aref rope i))
      (symbol (aref (symbol-name rope) i))))
  
  (defun rope-write (rope &key
                            (escape *print-escape*)
  