1 2 3 4 5 6
# # */ value test # FORWARD success; FORWARD failure; : MAIN 17 17 17 */ 17 = IF success ELSE failure ENDIF ;