Parse

(with-open-file (input-data "Z:/Documents/Programming/omgkanji-data.lisp" :external-format :utf-8)
       (with-open-file (output-data "Z:/Documents/Programming/omgkanji/processed.txt"
                                        :direction :output :external-format :utf-8 :if-exists :supersede)
         (let ((data (read input-data)))
           (loop for datum in data
             for ord = (getf datum :number)
             for character = (getf datum :character)
             for composition = (getf datum :composition)
             for name = (getf datum :name)
             when (= 1 (length character))
               do (format output-data "~4,'0d~5t~a~3t~a~50t~{~a~}~&"
                  ord
                  character
                  name
                  (if (zerop (length composition))
                      (list "-----")
                      (mapcar #'(lambda (p) (cond ((= 1 (length p)) p)
                                  ((eql p nil) "")
                                  ((string= p "???") "〇")
                                  ((string= p "<<<") "巛")
                                  ((string= p "") "〇")
                                  ((string= p "Same-ON") "")))
                          composition)))))))