
  TYPE
    clt$parameter_substitutions = array [1 .. * ] of
          clt$parameter_substitution;

*copyc clt$parameter_substitution
