sS shortenedToStringWithClass(O o) {
  ret o == null ? null : className(o) + " - " + shorten(str(o));
}