anchor.diff:      (loop for rule in rules
            collect (cons rule (construct-conjugation word rule)))))
   
  +(defun get-all-readings (seq)
  +  (query (:union
  +          (:select 'text :from 'kanji-text :where (:= 'seq seq))
  +          (:select 'text :from 'kana-text :where (:= 'seq seq)))
  +         :column))
  +
   (defparameter *do-not-conjugate* '("n" "vs" "adj-na"))
   
   (defun conjugate-entry-inner (seq)
  
positive.code:   (generic-synergy (l r)
     (lambda (segment)
       (and (typep (segment-word segment) 'kanji-text)
            (member "vs" (getf (segment-info segment) :posi) :test #'equal)))
     (lambda (segment)
       (member 1157170 (getf (segment-info segment) :seq-set)))
     :description "noun+suru"
  
negative.code:      if (= kanji-flag 1) collect reading into kanji-readings
       else collect reading into kana-readings
       finally
         (unless kana-readings (return nil))
         (let* ((kanji-readings (remove-duplicates kanji-readings :test 'equal))
                (kana-readings (remove-duplicates kana-readings :test 'equal))
                (seq-candidates
                 (if kanji-readings
                     (query (:intersect 
  