sbool cleanUp_interruptThreads; // experimental

static void cleanUp(O c) {
  if (c == null) ret;
  
  if (c cast AutoCloseable) ret with close_pcall(c);
  
  if (c cast java.util.Timer) ret with c.cancel();
  
  if (c cast Collection) { cleanUp(c); ret; }
  if (c cast Map) {
    for (O o : keysList(c)) cleanUp(o);
    for (O o : valuesList(c)) cleanUp(o);
    syncClear(c);
    ret;
  }
  //if (!(c instanceof Class)) ret;
  
  pcall {
    // revoke license
    
    preCleanUp(c);
    
    // unpause
    
    setOpt_raw(c, "ping_pauseAll", false);
    
    // call custom cleanMeUp() and cleanMeUp_*() functions
    
    innerCleanUp(c);
        
    // Java spec says finalize should only be called by GC,
    // but we care to differ.
    // Edit: Not anymore (illegal access warnings)
    /*if (isTrue(vmMap_get('callFinalize)))
      pcallOpt(c, "finalize");*/

    // remove all virtual bots (hope this works)
    
    L androids = (L) getOpt(c, "record_list");
    for (O android : unnull(androids))
      pcallOpt(android, "dispose"); // heck we'll dispose anything

    // sub-cleanup
    
    L<WeakReference> classes = cast getOpt(c, "hotwire_classes");
    if (classes != null)
      for (WeakReference cc : classes) pcall {
        cleanUp(cc.get());
      }
      
    // interrupt all threads (experimental, they might be doing cleanup?)
    
    if (cleanUp_interruptThreads) {
      L<Thread> threads = registeredThreads(c);
      if (nempty(threads)) {
        print("cleanUp: Interrupting " + n2(threads, "thread") + ": " + joinWithComma(allToString(threads)));
        interruptThreads(threads);
      }
    }
  }
  
  setOpt_raw(c, cleaningUp_flag := false);
  if (c instanceof Class && ((Class) c).getName().equals("main"))
    retireClassLoader(((Class) c).getClassLoader());
 }

static void cleanUp(Collection l) {
  if (l == null) ret;
  for (O c : l)
    cleanUp(c);
  l.clear();
}