!7

cmodule AgiBlueFirstBot > DynSingleFunctionWithPrintLog {
  transient PKIKeyPair keys;
  
  start { keys = keyPairForProgram(); }
  
  void doIt {
    Map map = optCastTo Map(print(loadJSONPage("http://agi.blue/bot/randompagecontaining?q=robots.txt")));
    if (map == null) ret;
    
    print(postJSONPage("http://agi.blue/bot/postSigned",
      text := pki_signTextIncludingKey(
        jsonEncode(litorderedmap(url := getString url(map), key := "move to", value := "the robot slice")), keys)));
  }
}