(let ((coding-system-for-write 'utf-8-jp-er))
  (dolist (file (directory-files
		 "../seed-src/" 'full "\\.csv$" 'no-sort))
    (mecab-kanbun-generate-variants
     file (file-name-nondirectory file))))
