!7

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