created forth lexer