!7

static double interval = 4.0;
static Set<S> lastFacts;
static new LatestAppearance<S> factAppearance;

p-experiment-tt {
  autoRestart();
  startBotHere("Screen Segmenter.", #1015121);
  
  repeat with sleep interval {
    long time = sysNow();
    SS map = mechMap("Thing on screen => Fact");
    Set<S> factsSet = lookupAllAsCISet(map, thingsOnScreen2());
    L<S> factsList = factAppearance.recordAndSort(factsSet);
    S facts = lines(factsList);
    if (neq(factsSet, lastFacts))
      printWithAsciiHeading("FACTS", or2(facts, "-"));
    lastFacts = factsSet;
    //done2_always(time, localDateWithSeconds() + ": Found: " + list);
    consoleTitle(trim(l(factsList) + " " + first(factsList)));
  }
}