
  TYPE
    pft$chosen_cycles = array [1 .. * ] of boolean;

