!7

html {
  new L<S> l;
  for (Class c : allMainClasses()) {
    S s = className(c);
    RuntimeException e = null;
    s += ", " + str(call(c, 'getProgramID));
    pcall {
      e = (RuntimeException) callOpt(c, 'asRuntimeException, new Exception);
    }
    if (e != null) s += ", " + firstFileNameFromStackTrace(e);
    l.add(s);
  }
  ret ul_htmlEncode(l);
}