tests.hex
1 2 3 4 5 6 7 8 9 10
( "value" store (value 0x1 ==) ("YES" puts) ("NO" puts) if ) "simple-test" store 0x1 simple-test i 0x2 simple-test i