
  TYPE
    clt$array_bounds = record
      lower: clt$array_bound,
      upper: clt$array_bound,
    recend;

*copyc clt$array_bound
