! 2022 nomennescio
USING:  kernel lexer math parser words.constant ;
IN: indices

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

! usage:
! INDEX: zero one two three four five six seven eight nine ;
! INDEX: sunday monday tuesday wednesday thursday friday saturday ;

! idea for additional words : "+INDEX:" to start counting from an offset