
  TYPE
    clt$number_kinds = set of clt$number_kind;

*copyc clt$number_kind
