sbool ai_html_wordThoughts_showMem;
static int ai_html_wordThoughts_searchMax = 100;
static int ai_html_wordThoughts_nodesMax = 1000;

static S ai_html_wordThoughts(S selectedWord) {
  ret ai_html_wordThoughts(ll(selectedWord));
}

static S ai_html_wordThoughts(L<S> selectedWords) {
  lock aiLock();
  int shrt = 80; // max length of entries shown
  Int oldShrt = setThreadLocal(ai_html_shortenTextForDisplay_length, shrt);
  try {
    S t = ai_html_triangle();
    S selectedWord = first(selectedWords);
    S title = h3(htmlencode(selectedWord));
    
    new Matches m;
    if (swic_trim(selectedWord, "[search]", m)) {
      int max = ai_html_wordThoughts_searchMax; 
      L<S> l = indexedTerms_scoredSearch(m.rest(), max+1);
      ret title
        + p(l(l) > ai_html_wordThoughts_searchMax ? max + "+ search results" : n(l, "search result"))
        + ul(map html_encyclopediaTopic(takeFirst(max, l)));
    }
    
    new L<WebNode> nodes;
  
    Set<S> ignoredWebs = ai_ignoredWebs();
    for (S word : selectedWords) {
      nodes.addAll(web_nodesNotFromCertainWebs(ignoredWebs, indexedNodes(word)));
      if (l(nodes) >= ai_html_wordThoughts_nodesMax) break;
    }
    int realN = l(nodes);
    truncateList(nodes, ai_html_wordThoughts_nodesMax);
      
    L<WebRelation> rel1 = web_collectBackwardRelations(nodes);
    L<WebRelation> rel2 = web_collectForwardRelations(nodes);
  
    final MultiMap<S> mm = orderedMultiMap(); // HTML -> web id
    
    for (WebRelation r : rel2)
      mm.put(ai_textHTML(r) + t + ai_renderNodeHTML(r.b), r.web.globalID);
    for (WebRelation r : rel1)
      mm.put(ai_renderNodeHTML(r.a) + t + ai_textHTML(r) + t + ai_textHTML(r.b), r.web.globalID);
    for (WebNode n : nodes)
      if (n instanceof WebRelation)
        mm.put(ai_renderNodeHTML(n/WebRelation.a) + t + ai_textHTML(n) + t + ai_textHTML(n/WebRelation.b), n.web.globalID);
        
    L<S> l1 = ll();
    Web web = ai_getWeb(selectedWord);
    if (web != null) {
      S link = ai_html_webLink(web.globalID);
      bool inv = ai_isInvalidWeb(web);
      l1.add(inv ? "is an " + ahref(link, "invalid web") : "is a " + ahref(link, "web"));
    }
    
    long nVirtual = ai_numberOfVirtualWebs();
    long mem = ai_html_wordThoughts_showMem ? memoryUsedAfterLastGC() : 0;
    ret title
      + (realN > ai_html_wordThoughts_nodesMax ? p("List truncated (" +  n(realN, "total node") + ")") : "")
      + ul(concatLists(l1, map html_linkURLs(
        allToString(
          map(multiMapKeysByPopularity(mm), func(S s) {
            L<S> webIDs = mm.get(s);
            ret s + " [" + joinWithComma(map ai_html_linkedWebWithThumbs(webIDs)) + "]";
          })
      ))))
      + p(n(nodes, "node") + " out of " + ahref(smartBotOfficialURL(), nWebs(keys(allWebsByID())))
        + (nVirtual == 0 ? "" : " + " + formatWithThousandsSeparator(nVirtual) + " virtual")
        + (mem == 0 ? "" : ". " + toMB(mem) + " MB used"));
  } finally {
    ai_html_shortenTextForDisplay_length.set(oldShrt);
  }
}