anchor.diff:      (loop for tai across (get-array top)
            collect (cons (reverse (tai-payload tai)) (tai-score tai)))))
   
  -(defun find-best-path^2-1 (segment-lists &key (limit 5))
  -  "convert find-best-path^2 results to previous format"
  -  (let ((result (find-best-path^2 segment-lists :limit limit)))
  +(defun find-best-path* (segment-lists &key (limit 5))
  +  "convert find-best-path results to single word format"
  +  (let ((result (find-best-path segment-lists :limit limit)))
       (dolist (item result result)
         (setf (car item)
               (mapcan (lambda (obj)
  
positive.code:    :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)
  
negative.code:                       
  (defun dict-segment (str &key (limit 5))
    (with-connection *connection*
      (loop for (path . score) in (find-best-path* (join-substring-words str) :limit limit)
           collect (cons (fill-segment-path str path) score))))
  
  (defun simple-segment (str &key (limit 5))
  