1 2 3 4 5 6 7 8 9 10 11 12
/stawk() +c subtext="$(cat<<'__END_SUBTEXT__' . .r subtext.awk a __END_SUBTEXT__ )" awk "$subtext" "$@" . w /dev/stdout q