anchor.diff:            (rendaku counter-kana :handakuten t))))
       (3 (case head
            ((:ha :hi :fu :he :ho)
  -          (rendaku counter-kana))))
  +          (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))
  
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:             (geminate number-kana))
             ((:ha :hi :fu :he :ho)
              (geminate number-kana)
              (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)
  