anchor.diff:  		    (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)
  +			  (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)))
  
positive.code:   (setf (nth id lines) text)
    (setf (nth id spaces) (length text)))
  
  
  ;(ql:quickload :cl-conllu)
  ;(cl-conllu:tree-sentences (cl-conllu:read-conllu "/Users/hmuniz/Desktop/file-2.conllu"))
  
  
negative.code:     (format t "─┮ ~%")
      (make-root-lines tks root lines spaces)
      (make-branchs root (children root tks) tks len-tks lines spaces)
      (mapc #'(lambda (line) (format t "~a ~%" line)) lines)))
  
  
  (defun make-branchs (father children tokens len-tokens lines spaces)
  