+ (setq i 0)
+ (while (< i (* 94 60 22))
+ (setq char (decode-char 'mojikyo i))
+ (if (and (setq radical (char-ideographic-radical char))
+ (not
+ (memq char
+ (setq ret
+ (aref ideograph-radical-chars-vector radical)))))
+ (aset ideograph-radical-chars-vector radical
+ (cons char ret)))
+ (setq i (1+ i)))