#
# DECR test
#
FORWARD success;
FORWARD failure;
: MAIN 8 -- 7 = IF success ELSE failure ENDIF ;