public static void htmlDescribeOneSubLevel(NamedDescription renamed_Object, int depth, int cutoff, org.powerloom.PrintableStringWriter stream) {
    { Cons directsubs = edu.isi.powerloom.PLI.getDirectSubrelations(renamed_Object, null, null).consify();

      if (directsubs == Stella.NIL) {
        return;
      }
      directsubs = directsubs.sort(Native.find_java_method("edu.isi.powerloom.logic.LogicObject", "objectNameLessThanP", new java.lang.Class [] {Native.find_java_class("edu.isi.powerloom.logic.LogicObject"), Native.find_java_class("edu.isi.powerloom.logic.LogicObject")}));
      {
        stream.print("<DL STYLE=' margin-top: 0; margin-bottom:0'>");
        { Stella_Object sub = null;
          Cons iter000 = directsubs;

          for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
            sub = iter000.value;
            {
              stream.print("<DT STYLE='margin-top: 0'>");
              OntosaurusUtil.htmlWriteHref(stream, "show", "concept", ((StandardObject)(sub)));
              if ((depth >= cutoff) &&
                  (!edu.isi.powerloom.PLI.getDirectSubrelations(((LogicObject)(sub)), null, null).emptyP())) {
                stream.print("    +...");
              }
              stream.println("</DT>");
            }
            if (!(depth >= cutoff)) {
              {
                stream.print("<DD>");
                OntosaurusUtil.htmlDescribeOneSubLevel(((NamedDescription)(sub)), depth + 1, cutoff, stream);
                stream.println("</DD>");
              }
            }
          }
        }
        stream.println("</DL>");
      }
      return;
    }
  }