beginchar(oct"221",em#,6cap#/7,dth#); "Ligature: EI";
 path p[];
 save ww,hh,dd;

 ww = w/5; hh = h/3; dd = d;
 b := .2ww;

 y0 = y3 = .1hh;
 x0 = 2.5ww; 
 x1 = 2.3ww; y2 = y1 = 1.5hh;
 x2 = x3 = 3ww;
 x4 = 1.7ww; y4 = hh;
 z5 = (.5[x0,x3],.6[y1,y4]);
 p0 = z0{left}..{up}z4..{right}z1..z5{z4-z5}..{left}z4;
 z6 = point 2.7 of p0;
 p1 = z6{right}..{left}z2{dir265}..{down}z3;
 pickup pencircle scaled b;
 draw p0;
 draw p1;

 endchar;