
  TYPE
    clt$number = record
      case kind: clt$number_kind of
      = clc$integer_number =
        integer_number: clt$integer,
      = clc$real_number =
        real_number: clt$real,
      casend,
    recend;

*copyc clt$integer
*copyc clt$number_kind
*copyc clt$real
