anchor.diff:      (format t "─┮ ~%")
       (make-root-lines tks root lines spaces)
       (make-branchs root (children root tks) tks len-tks lines spaces)
  -    (mapcar #'(lambda (line) (format t "~a ~%" line)) lines)))
  +    (mapc #'(lambda (line) (format t "~a ~%" line)) lines)))
   
   
   (defun make-branchs (father children tokens len-tokens lines spaces)
  
positive.code: 		    (draw-father index lines spaces (equal bot index) (equal top index) node max-s)
  		    (if (member node children)
  			(progn
  			  (draw-descendent index lines spaces (equal bot index) (equal top index) max-s)
  			  (if (is-not-just-a-leaf (+ 1 index) tokens)
  			      (push node to-do)
  			      (draw-node index lines spaces node)))
  
negative.code:   (setf (nth id lines) text)
    (setf (nth id spaces) (length text)))
  
  