SYNTAX: REVEAL:
    ";" parse-tokens current-vocab vocab-words
    [ [ dup search [ swap ] [ [ no-word ] keep ] if* ] dip set-at ]
    curry each ;