
  TYPE
    clt$integer = record
      value: integer,
      radix: 2 .. 16,
      radix_specified: boolean,
    recend;

