!7

cmodule PhilosophyBot2 extends DynPrintLog {
  transient int i;
  
  transient S program = [[
    count

    count => proc {
      while (i < 100):
        inc i
    }
  ]];
  
  transient new PhilosophyBot1 bot;

  start-thread {
    bot.program = program;
    bot.addNativePredicate("i < 100",
      () -> i < 100);
    bot.addNativePredicate("inc i",
      () -> {
        ++i;
        print("Incremented i to " + i);
        true;
      });
    bot.run();
  }
}