 TYPE
    put$cycle_reference_options = (puc$cycle_omitted, puc$lowest_cycle,
      puc$highest_cycle, puc$specific_cycle, puc$next_highest_cycle,
      puc$next_lowest_cycle),

    put$cycle_reference_selections = set of put$cycle_reference_options;
