さらにヒアドキュメントの中でS式をevalしてその結果を埋め込みとかできればなお嬉しいです
(define foo
#hHEREDOC
abcde
#hSEXP (integer->string 1)
fooHEREDOC)