anchor.diff:                               ,keys-var)))
                  (list ,@body))))))
   
  +(def-special-counter 1203020 ()
  +  (args 'counter-text "階" "かい" :digit-opts '((3 :r))))
   
   (defclass counter-tsu (counter-text) ())
   
  
positive.code:     (t (call-next-method))))
  
  (def-special-counter 1208920 ()
    (args 'counter-hifumi "株" "かぶ" :digitset '(1 2)))
  
negative.code: 
  (defmethod counter-join ((obj counter-text) n number-kana counter-kana
                           &aux (digit (mod n 10))
                             (head (gethash (char counter-kana 0) *char-class-hash*))
                             (digit-opts (assoc digit (digit-opts obj))))
    (when digit-opts
      (loop for opt in digit-opts
         do (case opt
              (:g (geminate number-kana))
              (:r (rendaku counter-kana))
              (:h (rendaku counter-kana :handakuten t))))
      (return-from counter-join (call-next-method)))
    
    (case digit
      (1 (case head
           ((:ka :ki :ku :ke :ko
  