sclass ToJava {
  O get(O o) {
    try object getOpt(o);
    fail("Can't ToJava: " + className(o));
  }
      
  O 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()));
    if (o cast L)
      ret functionCall ll(map get(o));
    null;
  }
}