anchor.diff:    (format t "	rtfText {\\rtf0\\ansi{\\fonttbl\\f0\\fswiss Helvetica;}\\margl40\\margr40\\pard\\tx960\\tx1920\\tx2880\\tx3840\\tx4800\\tx5760\\tx6720\\tx7680\\tx8640\\tx9600\\f0\\b\\i0\\ulnone\\qc\\fs20\\fc0\\cf0 ~s}~%" node)
     (format t "	textPlacement middle~%")
     (format t "end~%~%")
  -  (list (1+ n) (1+ l) x (+ 27 y))
  -  ) ;;TREE-DIAGRAM-GENERATE-NODE
  +  (list (1+ n) (1+ l) x (+ 27 y)))
   
   
   (defun tree-diagram-generate-inherit (n l x y)
  
positive.code:      do (if (listp item)
              (setq count (+ count (tree-size item)))
              (setq count (1+ count)))
       finally (return count))
    ) ;;TREE-SIZE
  
  
  
  (defun tree-generate-random (depth width)
  
negative.code: "
    (if (null tree)
        0
        (1+ (reduce (function max) (cdr tree) :key (fnuction tree-depth)
                                              :initial-value 0))))
  
  
  (defun tree-size (tree)
  