static O quickExport(O o, O dest) {
  ret quickExport_impl(o, dest, new IdentityHashMap, new HashMap);
}

static O quickExport(O o, O dest, int expectedNumberOfObjects) {
  ret quickExport_impl(o, dest, new IdentityHashMap(expectedNumberOfObjects), new HashMap);
}

/*sclass quickExport_info {
  Class destClass;
  Field[] fields;
}*/

static O quickExport_impl(O o, O dest, IdentityHashMap seen, HashMap<Class> classMap) ctex {
  if (o == null || o instanceof String || o instanceof Number) return o;
  
  O oo = seen.get(o);
  if (oo != null) ret oo;
  
  if (o instanceof O[]) {
    O[] l = (O[]) o;
    O[] destO = newObjectArrayOfSameType(l, l.length);
    seen.put(o, destO); 
    for (int i = 0; i < l.length; i++)
      destO[i] = quickExport_impl(l[i], dest, seen, classMap);
    ret destO;
  }
  
  if (o instanceof Cl) {
    Cl l = cast o;
    int n = l.size();
    List destO = new ArrayList(n);
    seen.put(o, destO);
    Iterator it = l.iterator();
    for i to n:
      destO.add(quickExport_impl(it.next(), dest, seen, classMap));
    ret destO;
  }
  
  if (o instanceof Map) {
    Map m = cast o;
    Map destO = new HashMap();
    seen.put(o, destO);
    for (Object e : ((Map) o).entrySet())
      destO.put(
        quickExport_impl(((Map.Entry) e).getKey(), dest, seen, classMap),
        quickExport_impl(((Map.Entry) e).getValue(), dest, seen, classMap));
    return destO;
  }
  
  Class c = o.getClass();
  S className = c.getName();
  className = loadableUtilsClassNameToMain(className);
  if (className.startsWith("main$")) {
    Class destClass = classMap.get(c);
    if (destClass == null) {
      if (!classMap.containsKey(c)) {
        if (!isAnonymousClassName(className))
          destClass = getClass_vmName_withLoadableUtils(dest, className);
        classMap.put(c, destClass);
      }
      if (destClass == null) ret o; // Class not found in target realm, keep object as is
    }
    
    if (c == destClass) ret o; // no export necessary
      
    // actually make a new object, copy fields
    
    O destO = nuObjectWithoutArguments(destClass);
    seen.put(o, destO);
    
    while (c != O.class) {
      // TODO: cache fields and destination fields
      Field[] fields = c.getDeclaredFields();
      for (Field field : fields) {
        if ((field.getModifiers() & Modifier.STATIC) != 0)
          continue;
        field.setAccessible(true);
        Object value = field.get(o);
        setOpt(destO, field.getName(), quickExport_impl(value, dest, seen, classMap));
      }
      c = c.getSuperclass();
    }
    
    return destO;
  }
  
  // assume it's a shared library object
  ret o;
}