concept Named {
  S name;
  
  toString { ret shortDynClassName(this) + " " + quote(name); }
}