
  TYPE
    clt$substitution_mark = record
      case specified: boolean of
      = TRUE =
        value: char,
      casend,
    recend;

