anchor.diff:  PRE:    tree is a cons of the node and the list of children.
   DOES:   writes to the *standard-output* the Diagram file text.
   "
  -  (tree-diagram-generate-tree 1000 60 45 27 tree)
  -  ) ;;TREE-TO-DIAGRAM
  -
  +  (tree-diagram-generate-tree 1000 60 45 27 tree))
   
   
   (defun tree-depth (tree)
  
positive.code: "
    (if (null tree)
        0
        (1+ (apply 'max (cons 0 (remove nil (mapcar 'tree-depth (cdr tree)))))))
    ) ;;TREE-DEPTH
  
  
  
  (defun tree-size (tree)
  
negative.code:   (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)))
  
  
  (defun tree-diagram-generate-inherit (n l x y)
  