
  TYPE
    clt$application_unit_array = array [1 .. * ] of integer;

