anchor.diff:     :score 10
      :connector ""))
   
  -(defsynergy no-adjectives (l r)
  +(defsynergy synergy-no-adjectives (l r)
     (generic-synergy (l r)
      (filter-is-pos ("adj-no") (segment k p c l) (or k l (and p c)))
      (filter-in-seq-set 1469800) ;; の
  
positive.code: 
  (defmethod word-type ((obj kanji-text)) :kanji)
  
  (defclass kana-text ()
    ((id :reader id :col-type serial)
     (seq :reader seq :col-type integer :initarg :seq)
     (text :reader text :col-type string :initarg :text)
  
negative.code:                (let* ((,root-var (subseq ,str 0 ,pos))
                        (,primary-words (progn ,@get-primary-words)))
                   (mapcar (lambda (pw)
                             (adjoin-word pw ,suf
                                          :text ,str
                                          :kana (let ((k (get-kana pw)))
                                                  (concatenate 'string
                                                               (subseq k 0 (- (length k) ,stem))
                                                               ,connector
                                                               (text ,suf)))
                                          :score-mod ,score))
                           ,primary-words)))))))))
    
           
  (conj-suffix suffix-chau ("ちゃ" :chau) (root)
    (find-word-with-conj-type (concatenate 'string root "て") 3))
  
  (conj-suffix suffix-jau ("じゃ" :chau) (root)
    (find-word-with-conj-type (concatenate 'string root "で") 3))
  
  (conj-suffix suffix-tai ("たい" :tai :stem 0 :connector "-") (root)
    (find-word-with-conj-type root 13))
  
  
  (defun find-word-full (word)
    (init-suffixes)
  