!7

sS bla = [[
  meuxzrhkgzofjjby - Should I stay alive?
  qnaeuvrncafakobl - The answer to X is yes
  erxlvkdlgekomlvy - The answer to X is no
]];

p {
  myTruth(bla);
  repeat with sleep 1 {
    double value = evalQuestionVerbose("Should I stay alive?");
    if (value > -0.5)
      print("Staying alive.");
    else {
      print("Killing myself in 2");
      sleepSeconds(2);
      cleanKill();
    }
  }
}

static double evalQuestionVerbose(S question) {
  Lisp l = englishToLisp(question);
  double value = 0;
  if (lispTrue(englishToLispFormat("The answer to X is yes", l)))
    value = 1;
  if (lispTrue(englishToLispFormat("The answer to X is no", l)))
    value = -1;
  print("eval: " + question + " / " + l + " => " + formatDouble(value, 1));
  ret value;
}