(dolist (buf '("Adj.csv" "Verb.i.csv" "Verb.s.csv"))
  (with-current-buffer buf
    (goto-char (point-min))
    (let (v pat str)
      (while (re-search-forward "^\\([^,\n\r]+\\)," nil t)
	(setq v (match-string 1))
	(with-current-buffer "Noun.csv"
	  (goto-char (point-min))
	  (setq pat (format "^\\(.\\)%s," v))
	  (while (re-search-forward pat nil t)
	    (setq str (match-string 1))
	    (with-current-buffer "*scratch*"
	      (insert (format "%s,0,0,0,v,副詞,*,*,*,t,%s,%s,*,*,*\n"
			      str str str)))))
	))))
