x1.add(f1+(i1 )*d1);
x2.add(f2+(i2+d)*d2);
clrw(i1,i2,flags);
for (i=is-1; i>=0; i=connect(i,fc,n1,d1,f1,n2,d2,f2,f,flags,x1,x2))
--ni;
x1.add(f1+(i1 )*d1);
x2.add(f2+(i2+d)*d2);
clrw(i1,i2,flags);
for (i=is; i>=0; i=connect(i,fc,n1,d1,f1,n2,d2,f2,f,flags,x1,x2))
--ni;