sS str_pcall(O o) {
  try {
    ret str(o);
  } catch print e {
    ret "[error in toString of " + className(o) + "]";
  }
}