!7

cmodule AgiBlueBot_DownloadAdjectives > DynSingleFunctionWithPrintLog {
  transient PKIKeyPair keys;
  
  start { keys = keyPairForProgram(); }
  
  void doIt {
    Set<S> known = mechCISet("Adjectives");
    
    L<S> downloaded = collect q(loadJSONList("http://agi.blue/bot/keyAndValueSearch" + hquery(key := "is", value := "an adjective", nameOnly := 1)));
    
    LS diff = listMinusSet(downloaded, known);
    pnlStructWithTitle("New adjectives", diff);
    print(addToMechList("Adjectives", diff));
  }
}

Began life as a copy of #1024239