
  TYPE
    clt$lexical_units = array [1 .. * ] of clt$lexical_unit;

*copyc clt$lexical_unit
