| 1 | assert_fact | Use parent/2, ancestor/2, lives_in/2, inside/2, in_region/2, carries/2. |
| 2 | assert_fact | Set parent(ian, scott). Set parent(scott, dana). Set parent(scott, pierce). |
| 3 | assert_fact | assert rule ancestor(X, Y) :- parent(X, Y). |
| 4 | assert_fact | assert rule ancestor(X, Z) :- parent(X, Y), ancestor(Y, Z). |
| 5 | assert_fact | assert rule in_region(X, Z) :- lives_in(X, Y), inside(Y, Z). |
| 6 | retract | {'utterance': 'they both live in salem, but pierce got moved to bend after', 'clarification_answers': ['They means Dana and Pierce.', 'Set lives_in(dana, salem). Set lives_in(pierce, salem). Retract lives_in(pierce, salem). Set lives_in(pierce, bend).'], 'max_clarification_rounds': 2} |
| 7 | assert_fact | Set lives_in(dana, salem). |
| 8 | assert_fact | Set lives_in(pierce, bend). |
| 9 | assert_fact | Set inside(salem, oregon). Set inside(bend, oregon). |
| 10 | assert_fact | Set carries(scott, brass_key). |
| 11 | assert_fact | query ancestor(ian, dana). |
| 12 | assert_fact | query ancestor(ian, pierce). |
| 13 | assert_fact | query in_region(dana, oregon). |
| 14 | assert_fact | query in_region(pierce, oregon). |
| 15 | assert_fact | query carries(scott, brass_key). |