+ (progn
+ (setq ret (decode-char 'ideograph-daikanwa a-m-m))
+ (if (= (get-char-attribute ret 'ideographic-radical)
+ (get-char-attribute a 'ideographic-radical))
+ (setq a-s (char-ideographic-strokes ret))
+ (setq a-s (char-ideographic-strokes a))))