SYNTAX: +INDEX: scan-number ";" [ create-word-in over define-constant 1 + ] each-token drop ;

! usage :
! +INDEX: 0 zero one two three four five six seven eight nine ;