!7

sS inputDiagrams = [[
  CirclesAndLines(arrowClass=class("main$Arrow"), circleClass=class("main$Circle"), circles=[Circle(text="A [Variable]", x=d("0.32"), y=d("0.55")), Circle(text="B [Variable]", x=d("0.68"), y=d("0.55"))], lines=[Arrow(a=t19, b=t40, text="is"), Arrow(a=t40, b=t19, text="then: is?")], title="A B B A")
]];

p-noconsole {
  cal_lineLength(50);
  Web web = webFromCALStructure(inputDiagrams);
  //printWeb(web);
  Web web2 = web_withoutRelationsStartingWith(web, "Then:");
  Web web3 = web_unpackedRelationsStartingWith(web, "Then:");
  showTabbedWebs("Instruction", web, "If", web2, "Then", web3);
}