Description

Get the next word on the line as a character string. If it's a single character, use it as the delimiter to get a phrase.

 : LEXEME             
    BL WORD ( addr) DUP C@ 1 =
        IF  CHAR+ C@ WORD  THEN
    COUNT ;