(defvar char-dump-target-directory "/var/tmp")

(update-ideograph-radical-table)

(let ((i 1))
  (while (<= i 214)
    (write-ideograph-radical-char-data i char-dump-target-directory)
    (setq i (1+ i))))