anchor.diff:       2717440 ;; ずは
        2717510 ;; ってのは
        2828541 ;; あさのは
  +     2176280 ;; これは
  +     1316430 ;; つぎのれいでは
        )
       (l)
  +  (:space (- l 1))
  +  (:mod (- l 1)))
  +
  +(def-simple-hint
  +    (2261800 ;; それはそれは
  +     )
  +    (l)
  +  (:space 2)
  +  (:mod 2)
  +  (:space 3)
     (:space (- l 1))
     (:mod (- l 1)))
   
  
positive.code:   (unless length-var (setf length-var (gensym "LV")))
    (unless kana-var (setf kana-var (gensym "KV")))
    `(defhint ,seqs (,reading-var)
       (let* ((,kana-var (get-kana ,reading-var))
              (,length-var (length ,kana-var))
              )
         (declare (ignorable ,length-var))
         (insert-hints ,kana-var
                       (list
                        ,@(loop for pair in hints-def
                             collect `(list ,@pair)))))))
  
  (defun get-hint (reading)
    (let ((hint-fn (gethash (seq reading) *hint-map*))
  
negative.code:      2177440 ;; うらむらくは
       2177450 ;; こいねがわくは
       2256430 ;; としては
       2428890 ;; さすがは
       2513540 ;; そのことじたいは
       2523450 ;; おかれましては
  