anchor.diff:                                     :words split
                                      :score-mod score))
                      (new-seg (copy-segment segment)))
  +              (when root
  +                (loop for i from 0 for word in split
  +                   if (find i root) do (setf (word-conjugations word) :root)))
                 (setf (segment-word new-seg) word
                       (segment-text new-seg) (get-text word)
                       (segment-score new-seg) (+ (segment-score segment) score))
  
positive.code:     (let ((*split-map* *segsplit-map*))
        (multiple-value-bind (split attrs) (get-split word)
          (when split
            (destructuring-bind (score &key (primary 0) (connector " ")) attrs
              (let* ((word
                      (make-instance 'compound-text
                                     :text (str:join "" (mapcar 'get-text split))
  
negative.code:     (1343100 (- len 1))
      (2028930 1))
  
    (def-simple-split split-tokorode 1343110 '(-10 :root (1)) (len) ;; ところで
      (1343100 (- len 1))
      (2028980 1))
  
  