!7

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

cmodule FindingNounds > DynPrintLog {
  start-thread {
    print(l(getEmits_tee(r { javaxSimple(); })));
  }
  
  void javaxSimple() {
    for (S listName : mechListNames())
      if (cic(listName, "noun"))
        for (S s : mL(listName)) {
          emitVariables(+listName, +s);
          emit(quote(s) + " is a noun");
        }
  }
}