anchor.diff:     :score 10
      :connector ""))
   
  -;; (defsynergy synergy-chau (l r)
  -;;   (generic-synergy (l r)
  -;;    (lambda (segment) (or (funcall (filter-is-conjugation 13) segment) (filter-is-noun segment)))
  -;;    (filter-in-seq-set 2013800 2210750) ;; ちまう ； じまう ; しまう
  -;;    :description "cont+chau"
  -;;    :score 10
  -;;    :connector ""))
  -
   (defsynergy synergy-o-prefix (l r)
     (generic-synergy (l r)
      (lambda (segment)
  
positive.code:                       
  (defun dict-segment (str &key (limit 5))
    (with-connection *connection*
      (loop for (path . score) in (find-best-path^2-1 (join-substring-words str) :limit limit)
           collect (cons (fill-segment-path str path) score))))
  
  (defun simple-segment (str &key (limit 5))
  
negative.code:     (with-slots (array count) obj
        (if (>= count (length array)) array (subseq array 0 count)))))
  
  (defstruct synergy description connector score start end)
  
  (defun make-segment-list-from (old-segment-list segments)
  