!7

sS bla = [[
  (Q: Do you know what X is?) & (X is Y) => A: It's Y
  (Q: Do you know what X is?) & (No Y where (X is Y)) => A: What is X?
  
  The box is green.
  
  ufzlismnlhvbjqoj - (X) and (Y) and (Z) and (AA) and (AB) => (AC)
  phkdhqkhzytkwdpb - (X) and (Y) and (Z) and (AA) => (AB)
  cntevdawguaaxqmn - (X) and (Y) and (Z) => (AB)
  eijdjqhyzheusetj - (X) and (Y) and (Z) => (AA)
  mwpbetwhkuuuupws - X and Y and Z => AA
  txsysipmstxmjhmi - (X) and (Y) => (Z)
  cuutddpitkuswthu - While (X) => (Y)
  kecvwixuouqlpzhu - (X) and (Y) => Z
  tusgcjefvtgebzba - (X) & (Y) => Z
  wziyypnyayfphdxs - (X) => (Y)
  chkfkshhwshoauan - X => Y
  
  vouwrrhtmajsgaby - Q: X
  nywfcwkkcknzhmdy - A: X
  
  icpawfsfqehwdnon - Do you know what X is?
  urfkhwfasdaqqqse - What is X?
  wcwlqvvrpdwjzfms - X is Y
  bblhpfgfvcyjfwmd - No X where Y
  zhahnerfmvfdqkxd - It's X
]];

p {
  myTruthNonPersist(bla);
  solveQuestion("Do you know what the box is?");
  // TODO: thought space
  //solveQuestion("Do you know what the bear is?");
}

svoid solveQuestion(S q) {
  Lisp l;
  print(l = englishToLisp(q));
  fromUser(lisp("vouwrrhtmajsgaby", l)); // emit question
  applyRules();
  printStatements(lispTruth1("nywfcwkkcknzhmdy"));
}