Implementace DKA 6/10
  case state of
    ...
    f1: begin {identifikátor}
          if symbol in ['a'..'z', '0'..'9'] then
            str := str + symbol;
          else
          begin
            ungetchar(symbol);   {návrat znaku}
            if is_keyword(str) then {klíčové slovo}
              TOKEN := get_keyword(str);
            else
              TOKEN := IDENTIFIER;
            break;
          end;
        end; {stav f1}
15/35
identifier
f1
a..z
a..z,0..9
s