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:   (format t "	filled~%")
    (format t "	textPlacement top~%")
    (format t "end~%")
    (list (1+ n) (1+ l) (+ 81 x) (+ 27 y))
    ) ;;TREE-DIAGRAM-GENERATE-INHERIT
  
  
  (defun tree-diagram-generate-adjust-x (inc)
  
negative.code:      do (if (listp item)
              (setq count (+ count (tree-size item)))
              (setq count (1+ count)))
       finally (return count)))
  
  
  (defun tree-generate-random (depth width)
  