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:     (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)))
  
  
  (defun make-branchs (father children tokens len-tokens lines spaces)
  
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)
  