ir1={{"BBB""AAAA","ABA""ABAB"},{"BBBB""AA","ABA""BAAB"},{"ABA""ABBBB","BBBB""ABAABB"},{"ABAA""ABAAB","BBBB""ABAB"},{"BBBB""A","ABA""BABA"},{"AA""B","BBB""ABAAB"},{"BBB""A","AA""BAA"},{"AA""BABABB","BBAB""ABB"},{"BABB""ABA","AA""BABBBB"},{"BB""AAA","AA""BA"},{"AA""BAB","BBAB""BAAA"},{"ABA""ABB","BB""ABAAAA"},{"AA""ABBBBB","BABB""AAB"},{"ABA""BAAB","BBBB""B"},{"BAAB""ABAAB","AAAA""BA"},{"ABA""BAAB","BBBB""BABA"}};
ir1[[15]]
{BAABABAAB,AAAABA}
Show[SMWNetworkPictureR[{"BAAB""ABAAB","AAAA""BA"},"ABAAB",20,{1}]];
Show[SMWNetworkPictureR[{"BAAB""ABAAB","AAAA""BA"},"ABAAB",16,{1},Complete->True]];
ir1[[6]]
{AAB,BBBABAAB}
Show[SMWNetworkPictureR[{"AA""B","BBB""ABAAB"},"ABAAB",20,{1}]];
Show[SMWNetworkPictureR[{"AA""B","BBB""ABAAB"},"ABAAB",30,{1}]];
Show[SMWNetworkPictureR[{"AA""B","BBB""ABAAB"},"ABAAB",10,{1},Complete->True]];
Show[SMWNetworkPictureR[{"AA""B","BBB""ABAAB"},"ABAAB",15,{1},Complete->True]];
Show[SMWNetworkPictureR[{"AA""B","BBB""ABAAB"},"ABAAB",20,{1},Complete->True]];
$Aborted
ir1[[14]]
{ABABAAB,BBBBB}
Show[SMWNetworkPictureR[{"ABA""BAAB","BBBB""B"},"ABAAB",20,{1}]];
Show[SMWNetworkPictureR[{"ABA""BAAB","BBBB""B"},"ABAAB",10,{1},Complete->True]];
Show[SMWNetworkPictureR[{"ABA""BAAB","BBBB""B"},"ABAAB",10,{1},Complete->True,NodeSize->.15,NodeNumber->True]];