ideo-dump.el

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