sclass ToJava {
  S get(O o) {
    S code = getOpt(o);
    if (code != null) ret code;
    fail("Can't ToJava: " + className(o));
  }
      
  S getOpt(O o) {
    if (o == null) ret "null";
    if (o instanceof String) ret quote(o);
    if (o instanceof Int) ret str(o);
    if (o cast IFieldsToList)
      ret formatFunctionCall("new " + shortName(o), map get(o._fieldsToList()));
    null;
  }
}