
  TYPE
    clt$expandable_string = record
      area: ^SEQ ( * ),
      text: ^clt$string_value,
      lexical_units: ^clt$lexical_units,
    recend;

  CONST
    clc$expansion_chunk_size = 256;

*copyc clt$lexical_units
*copyc clt$string_value
