!7

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

cmodule FindingNounds > DynPrintLog {
  start-thread {
    javaxSimple();
  }
  
  void javaxSimple() {
    for (S listName : mechListNames())
      if (cic(listName, "noun"))
        for (S s : mL(listName)) {
          emit("Variables are: " + struct(litorderedmap(+listName, +s)));
          emit(quote(s) + " is a noun");
        }
  }
}