/stawk()
+c
subtext="$(cat<<'__END_SUBTEXT__'
.
.r subtext.awk
a
__END_SUBTEXT__
)"
awk "$subtext" "$@"
.
w /dev/stdout
q