
  TYPE
    nat$title_pattern_list = array [1 .. *] of string (nac$max_title_pattern_length);

*copyc nat$title_pattern
