
  TYPE
    clt$lexical_unit = record
      size: clt$string_size,
      kind: clt$lexical_unit_kind,
    recend;

*copyc clt$lexical_unit_kind
*copyc clt$string_size
