/***  A Get Next Token that does lexical identification  ***/ 

FUNCTION Get next token () RETURNING a token: 

       SET Simple token TO Get next simple token (); 
       IF Class of Simple token = Identifier: 
          IF found in Keyword list
             SET Class of Simple Token to KEYWORD_TYPE

RETURN Simple token;