!7

sS inputDiagrams = [[
  CirclesAndLines(circles=[Circle(text="A [Variable]", x=d("0.3184438040345821"), y=d("0.5454545454545454")), Circle(text="B [Variable]", x=d("0.6786743515850144"), y=d("0.5493230174081238"))], lines=[Arrow(a=t5, b=t26, text="is"), Arrow(a=t26, b=t5, text="then: is?")], title="A B B A")
]];

p-noconsole {
  cal_lineLength(45);
  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);
}