Description

EXECUTE each entry in the wordlist in the original order defined

 : REDO-ALL-WORDS
      0 FIRST-NAME
      0 SWAP ( under )
      BEGIN ?DUP WHILE 
         DUP NAME> SWAP ( under )
         NAME-NEXT
      REPEAT
      BEGIN ?DUP WHILE
         EXECUTE
      REPEAT
 ;

to run the NEW-WORDLIST in last-run-first order, use DO-ALL-WORDS