
  TYPE
    clt$cycle_selector = record
      specification: clt$cycle_specification,
      value: pft$cycle_selector,
    recend,
    clt$cycle_specification = (clc$cycle_omitted, clc$cycle_specified,
          clc$cycle_next_highest, clc$cycle_next_lowest);

*copyc pft$cycle_selector
