sclass BakedBot {
  new SimpleMechLists lists;
  Class bot;
  
  *() {
    bot = hotwireDependentSharingClasses(#1017706, VirtualMechLists);
    setOpt(bot, mechLibID := null);
    //lists.verbose = true;
    set(callOpt(bot, 'mechMode), readMode := lists);
    runMain(bot);
  }
  
  S answer(S s) {
    ret callAnswerMethod(bot, s);
  }
  
  S check(S input, S expectedOutput) {
    ret assertEqualsVerbose_match(expectedOutput, answer(print("> ", input)));
  }
  
  void setList(S name, S text) {
    lists.put(name, text);
  }
  
  void setAuthorized(bool b) {
    setOpt(bot, authorized := b);
  }
  
  S answerAuthorized(S s) {
    setAuthorized(true);
    tempAfterwards(r { setAuthorized(false); });
    ret answer(s);
  }
}