
  TYPE
    clt$lexical_kinds = (clc$unknown_token, clc$space_token, clc$eol_token,
          clc$dot_token, clc$semicolon_token, clc$colon_token,
          clc$lparen_token, clc$lbracket_token, clc$lbrace_token,
          clc$rparen_token, clc$rbracket_token, clc$rbrace_token,
          clc$uparrow_token, clc$rslant_token, clc$query_token,
          clc$comma_token, clc$ellipsis_token, clc$exp_token, clc$add_token,
          clc$sub_token, clc$mult_token, clc$div_token, clc$cat_token,
          clc$gt_token, clc$ge_token, clc$lt_token, clc$le_token, clc$eq_token,
          clc$ne_token, clc$string_token, clc$name_token, clc$integer_token,
          clc$real_token);

  CONST
    clc$assign_token = clc$eq_token;

