!752

sS suckerID = "#1004698";

static interface Algorithm {
  S predict(int max);
  void feed(S s);
}

// simple test algorithm
sclass TestAlgo implements Algorithm {
  char c;
  public S predict(int max) { ret str(c); }
  public void feed(S s) { c = last(s); }
}

p {
  wakeSucker(suckerID, "TestAlgo", new TestAlgo);
}

static void wakeSucker(S suckerID, S desc, Algorithm algo) {
  ping();

  print("Waking...");
  O sucker = run(suckerID);
  print("Feeding...");
  
  Class intrface = getClass(sucker, "main$Algorithm");
  assertNotNull("main$Algorithm", intrface);
  O proxy = proxy(intrface, algo);
  O result = callOpt(sucker, "suck", desc, proxy);
  print("Suck Result: " + struct(result));

  cleanUp(sucker);
}

Began life as a copy of #1004664