
  TYPE
    clt$day_and_month_names = record
      next_entry: ^clt$day_and_month_names,
      language: ost$natural_language,
      months: array [1 .. 12] of clt$name,
      months_abbrev: array [1 .. 12] of clt$name,
      days: array [1 .. 7] of clt$name,
      days_abbrev: array [1 .. 7] of clt$name,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ost$natural_language
*copyc clt$name
?? POP ??
