
  TYPE
    stt$set_list = array [1 .. * ] of stt$set_name;

*copyc stt$set_name
