
  CONST
    pfc$permit_contraction_count = 2 * pfc$permit_expansion_count;

*copyc pfc$permit_expansion_count
