!7

sS questions = [[
  Do you ship to Norway? => Yes
  Do you ship to Australia? => Sorry, we cannot ship there.
]];

sS facts = [[
  We ship to Norway
  We don't ship to Australia
]];

sS rules = [[
  Q: Do you ship to X?
    (We ship to X) => A: Yes
    (We don't ship to X) => A: Sorry, we cannot ship there.
    (We ship to X for a fee of Y) => A: Yes, for a fee of Y we will ship to X.
    (X is in Y) => Replace question with: Do you ship to Y?
    
  lvjqbruihqmsgckd - Do you ship to X?
  aileauajpxpgymdj - We ship to X
  siacyutikdvksvwp - We don't ship to X
]];

p {
  rules = rules_unfoldIndented(rules);
  print(rules);
  myTruthNonPersist(facts + standardConcepts() + rules);
  lispCheckQuestionsVerbose(questions);
}