anchor.diff:              (geminate number-kana))
              ((:ha :hi :fu :he :ho)
               (geminate number-kana)
  -            (rendaku counter-kana :handakuten t))))))
  +            (rendaku counter-kana :handakuten t))))
  +    (100 (case head
  +         ((:ka :ki :ku :ke :ko)
  +          (geminate number-kana))
  +         ((:ha :hi :fu :he :ho
  +           :pa :pi :pu :pe :po)
  +          (geminate number-kana)
  +          (rendaku counter-kana :handakuten t))))
  +    (1000 (case head
  +            ((:ha :hi :fu :he :ho)
  +             (rendaku counter-kana :handakuten t))))
  +    (10000 (case head
  +             ((:ha :hi :fu :he :ho)
  +              (rendaku counter-kana :handakuten t))))
  +    )
     (call-next-method))
   
   (defclass number-text (counter-text)
  
positive.code:          ((:ha :hi :fu :he :ho)
            (geminate number-kana)
            (rendaku counter-kana :handakuten t))))
      (0 (unless (zerop (mod n 100))
           (case head
             ((:ka :ki :ku :ke :ko
               :sa :shi :su :se :so
               :ta :chi :tsu :te :to
  
negative.code:           (rendaku counter-kana :handakuten t))))
      (3 (case head
           ((:ha :hi :fu :he :ho)
            (rendaku counter-kana :handakuten t))))
      (4 (case head
           ((:ha :hi :fu :he :ho)
            (rendaku counter-kana :handakuten t))))
      (6 (case head
           ((:ka :ki :ku :ke :ko)
            (geminate number-kana))
  