anchor.diff:       1004620 ;; こにちは
        1008450 ;; では
        2215430 ;; には
  +     2028950 ;; とは
        )
       (l)
       (:mod (- l 1)))
  
positive.code: (defmacro defhint (seqs (reading-var) &body body)
    (unless (listp seqs)
      (setf seqs (list seqs)))
    `(progn
       ,@(loop for seq in seqs
            collect `(setf (gethash ,seq *hint-map*)
                           (lambda (,reading-var) ,@body)))))
  
  (defmacro def-simple-hint (seqs (&optional length-var kana-var reading-var) &body hints-def)
    (unless reading-var (setf reading-var (gensym "RV")))
  
negative.code: (def-simple-hint
      (2108440 ;; あやまちてはすなわちあらたむるにはばかることなかれ
       2784400 ;; かにはこうらににせてあなをほる
       2418270 ;; ひとはみかけによらぬもの
       2219580 ;; ねごとはねてからいえ
       2418250 ;; ひとはパンのみにていくるものにあらず
       2417270 ;; あとはのとなれやまとなれ
       2178680 ;; だすことはしたをだすもきらい
       )
      (l k)
    (ha (search "は" k :from-end t))
  