!7

p-experiment {
  new TreeSet<S> seen;
  for (File f : conceptBackupFiles(#1015871)) {
    print(f);
    Collection<DynamicObject> concepts = values((Map) safeUnstructureGZFile(f));
    print(n2(concepts, "concept"));
    seen.addAll(map shortDynClassName(concepts));
    for (DynamicObject o : concepts)
      if (eq(shortDynClassName(o), 'DynamicModule)) {
        S moduleID = cast getOpt(o, 'moduleID);
        if (moduleID == null) continue;
        S className = cast getOpt(o, '_className);
        if (className != null) moduleID += "/" + dropPrefix("main$", className);
        addIfNempty(seen, moduleID);
      }
  }
  pnl(seen);
  addToMechList("Used Modules", seen);
}