anchor.diff:    (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"))
  -
  
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: (in-package :conllu-visualize)
  
  
  (defun tree-sentence (sentence)
    (mapcar #'meta-sentence (sentence-meta sentence))
    (make-tree sentence)
    (values))
  
  
  (defun meta-sentence (meta-sent)
  