
  TYPE
    clt$number_kind = (clc$integer_number, clc$real_number);

