!7

// English:
//   x is contained in a mech list whose name contains "noun" => x is a noun

cmodule FindingNounds > DynPrintLog {
  start-thread {
    LS emits = getEmits_tee(r { javaxSimple(); });
    SS lastVars = null;
    new LPair<S, MapSO> suggestionsAndVars;
    for (S s : emits) {
      SS vars = parseLineFromEmitVariables(s);
      if (vars != null) lastVars = vars;
      else
        suggestionsAndVars.add(pair(s, vars));
    }
    print(random(suggestionsAndVars));
  }
  
  void javaxSimple() {
    for (S listName : mechListNames())
      if (cic(listName, "noun"))
        for (S s : mL(listName)) {
          emitVariables(+listName, +s);
          emit(quote(s) + " is a noun");
        }
  }
}