  TYPE
    rat$match_decks = array [1 .. * ] of rat$match_item,

    rat$match_item = record
      name: ost$name,
      index: rat$deck_index,
    recend;

*copyc rat$deck_index
*copyc ost$name

