#
# OUT_STR test
#
FORWARD success;
: MAIN "!" >s success ;