!7

cmodule TestPhilosophyEngine > DynPrintLog {
  sS program = [[
    program (
      count
    
      count => proc {
        while (i < 100):
          inc i
      }
    ) should end with (i == 100)
  ]];

  start-thread {
    new PhilosophyBot1 main;
    main.program = program;
    main.run();
    pnl(main.facts);

    for (SS map : main.listFactsMatching("program x should end with y")) {
      S program = map.get("x"), endCondition = map.get("y");
      printVars(+program, +endCondition);
    }
  }
}