input boxes;

defaultscale := 3.2;
defaultfont := "lcmssb8";

for i=0 upto 1:

beginfig(i);
drawoptions(withcolor(i,i,i));

vardef cuta(suffix a,b) expr p =
  p cutbefore bpath.a cutafter bpath.b
enddef;

circleit.a1("Dari");
circleit.a3("Tajik");
circleit.b1("Afghanistan");
circleit.b3("Tajikistan");

circleit.cp("Contemporary Persian");
circleit.a2("Farsi");
circleit.b2("Iran");

9mm = cp.dx = cp.dy = 
a1.dx = a1.dy = a2.dx = a2.dy = a3.dx = a3.dy =
b1.dx = b1.dy = b2.dx = b2.dy = b3.dx = b3.dy;

numeric hsep;

a2.c - a1.c = a3.c - a2.c = (hsep, 0);
b2.c - b1.c = b3.c - b2.c = (hsep, 0);
a2.c - cp.c = b2.c - a2.c = (0, -.5hsep);
xpart(b3.e - b1.w) = 8in;

pickup(pencircle scaled .4mm);

drawboxed(a1,a3,b1,b3);

draw cuta(cp, a1) cp.c..a1.c;
draw cuta(cp, a3) cp.c..a3.c;
draw cuta(a1, b1) a1.c..b1.c;
draw cuta(a3, b3) a3.c..b3.c;

pickup( currentpen scaled 3 );

drawboxed(cp,a2,b2);
draw cuta(cp, a2) cp.c..a2.c;
draw cuta(a2, b2) a2.c..b2.c;

endfig;

endfor

end.