static bool feedSucker_aggressiveKeepalive;

static void feedSucker(O sucker, S... strategyIDs) {

  feedSucker(sucker, asList(strategyIDs));

}

// sucker is an object implement a "suck" method, or a snippet ID

static void feedSucker(O sucker, L<S> strategyIDs) {

  ping();

  printFormat("feedSucker * *", str(sucker), strategyIDs);

  class Strategy {

    S id;

    O f;

    S lastCode;

    *() {}

    *(S *id, O *f) {}

  }

  new L<Strategy> strategies;

  O _sucker = sucker;

  if (sucker instanceof S) {

    print("Waking...");

    sucker = run((S) sucker);

  }

  print("Loading strategies...");

  for i over strategyIDs: pcall {

    print((i+1) + "/" + l(strategyIDs));

    S id = strategyIDs.get(i);

    strategies.add(new Strategy(id, loadStrategy(id)));

    print("OK");

  }

  print("Got " + n(l(strategies), "strategy") + ".");

  if (empty(strategies)) { print("Exiting!"); ret; }

  print("Feeding...");

  S text = (S) callOpt(sucker, "getText");

  assertNotNull(text);

  int round = 0;

  while licensed {

    if (empty(strategies)) { print("Exiting!"); ret; }

    ++round;

    for i over strategies: pcall {

      Strategy strategy = strategies.get(i);

      ping();

      // call strategy

      print("Round " + round + ", target " + _sucker + ", strategy " + strategy.id);

      S lua = callStrategy(strategy.f, text);

      //print("CODE:\n" + indentx(lua));

      bool done = eq(lua, "done");

      if (done ||

        (!feedSucker_aggressiveKeepalive && eq(lua, strategy.lastCode))) {

        print(done ? "Strategy done - dropping" : "Same code twice in a row - dropping strategy");

        strategies.remove(i--);

        continue;

      }

      strategy.lastCode = lua;

      S desc = "L " + lua;

      O algo = makeLuaTextPredictAlgoFor(desc, sucker);

      O newBest = callOpt(sucker, "suck", desc, algo);

      double score = cast get(sucker, "lastScore");

      if (isTrue(newBest))

        print("NEW BEST!!!!!");

    }

  }

}