1 2 3 4 5 6
# # NE test # FORWARD success; FORWARD failure; : MAIN 7 49 <> IF success ELSE failure ENDIF ;