!7

static double interval = 4.0;
static S lastFacts;

p-experiment {
  autoRestart();
  SS map = mechMap("Thing on screen => Fact");
  repeat with sleep interval {
    long time = sysNow();
    Set<S> factsSet;
    S facts = lines(factsSet = lookupAllAsCISet(map, thingsOnScreen()));
    if (neq(facts, lastFacts))
      printWithAsciiHeading("FACTS", or2(facts, "-"));
    lastFacts = facts;
    //done2_always(time, localDateWithSeconds() + ": Found: " + list);
    consoleTitle(trim(l(factsSet) + " " + unnull(random(factsSet))));
  }
}