!7

p-tt {
  for (S listName, keysListName : mechMap_unquote("List => Mandatory keys list")) {
    print("Checking: " + listName + " / " + keysListName);
    L<S> mandatory = mL(keysListName);
    print("Mandatory: " + l(mandatory));
    SS entries = mechMapCI(listName);
    print("Have: " + l(entries));
    L<S> missing = asList(setMinusSet(asCISet(mandatory), keys(entries)));
    if (empty(missing)) continue;
    printAsciiHeading("Missing keys in: " + listName);
    pnl(missing);
    appendToMechList(barCombine(listName, "Missing keys"), missing);
  }
}