!7

cmodule AgiBlueFirstBot > DynSingleFunctionWithPrintLog {
  transient PKIKeyPair keys;
  
  start { keys = keyPairForProgram(); }
  
  void doIt {
    L<Map> pages = cast loadJSONPage("http://agi.blue/bot/allPagesEndingWith" + hquery(q := "/robots.txt"));

    new LS posts;
    for (SS page : pages)
      posts.add(jsonEncode(litorderedmap(
        url := getString url(page), key := "move to", value := "the robot slice"
      )));
    print(postJSONPage("http://agi.blue/bot/postSigned", text := pki_signTextIncludingKey(lines(posts), keys)));
  }
}