#
# GT test
#
FORWARD success;
FORWARD failure;
: MAIN 7 49 > IF success ELSE failure ENDIF ;