concat read-string concatの組み合わせ

read-stringの結果をconcatしてさらにconcatすることは可能らしい。

(setq header (concat header (read-string (concat "header " (number-to-string header-counter) ": ")) "|"))

Creating Strings - GNU Emacs Lisp Reference Manual