!7

sS questions = [[
  Is your product software? => Yes
  Is your product hardware? => I don't know
  Is your product a fluffy penguin? => I don't know
]];

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?
]];

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