ideo-dump.el

   1 (defvar char-dump-target-directory "/var/tmp")
   2
   3 (let ((i 1))
   4   (while (<= i 214)
   5     (write-ideograph-radical-char-data i char-dump-target-directory)
   6     (setq i (1+ i))))