1 2 3 4 5 6 7
\ Implements ENUM. \ Double DOES>! : enum create 0 , does> create dup @ 1 rot +! , does> @ ; \ But this is simpler. : enum create 0 , does> dup @ constant 1 swap +! ;