
  TYPE
    clt$f_command_type = (clc$assignment, clc$case_selection,
          clc$control_statement_begin, clc$empty_command,
          clc$control_statement_end, clc$control_statement_switch,
          clc$control_statement_no_switch, clc$to_be_translated_command,
          clc$escape_command, clc$unknown_command, clc$utility_begin,
          clc$utility_end, clc$proc_declaration, clc$file_command,
          clc$collect_text_command, clc$labeled_command, clc$end_colt_command,
          clc$procend_command, clc$var_or_type_statement);

