beginchar("E",em#,5cap#/7,0dth#); "Epsilon";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;
 
 x0 = x4 = 8ww;
 y4 = 10hh - y0 = .5hh;
 y2 = 5hh; x2 = ww;

 p1 = z0{left}..{down}z2;
 p2 = z2{down}..{right}z4;

 z5 = point .25 of p1;
 z1 = point .5 of p1;
 z6 = point .75 of p1;
 z7 = point .25 of p2;
 z3 = point .5 of p2;
 z8 = point .75 of p2;
 x9 = x5; y9 = y2;
 y11 = .5[y7,y3]; x11 = .5[x8,x4];
 y10 = .5[y6,y1]; x10 = x11;
 y14 = y12 = .25[y2,y6];
 y13 = .25[y2,y7];
 x12 = x1; x14 = x5;
 x13 = .5[x1,x5];
 x15 = 8ww; y15 = y2;
 z16 = z2;
 
 penpos5(b,90);
 penpos1(1.7b,120);
 penpos6(.6b,150);
 penpos2(1.7b,180);
 penpos7(.6b,210);
 penpos3(1.7b,240);
 penpos8(b,270);
 penpos16(b,90);
 penpos12(b,90);
 penpos13(b,90);
 penpos14(b,90);
 penpos15(b,90);

 penstroke z5e{left}..z1e..z6e..{down}z2e{down}..z7e..z3e..{right}z8e;
 pickup pencircle scaled b;
 penstroke z16e{right}..z12e..z13e..z14e..{right}z15e;
 drawdot z5;
 drawdot z8;
 drawdot z15;
 pickup pencircle scaled .4pt;
 draw z1{right}..z9..{down}z11;
 draw z3{right}..z9..{up}z10;
 draw fullcircle scaled .5b shifted (z10);
 draw fullcircle scaled .5b shifted (z11);

endchar;