naota

(with-current-buffer (get-buffer-create "roman.t-code.txt")
  (dolist (x  '(
		((("1" "1"))("■"))
		((("2" "1"))("■"))
		((("3" "1"))("■"))
		((("4" "1"))("■"))
		((("5" "1"))("■"))
		((("6" "1"))("■"))
		((("7" "1"))("■"))
		((("8" "1"))("■"))