
  TYPE
    clt$data_kinds = set of clt$data_kind;

*copyc clt$data_kind
