beginchar(oct"217",em#,6cap#/7,0); "Ligature: sth";
 path p[];
 save ww,hh;

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

 x0 = 1.25ww; y0 = .1hh = y5;
 y1 = .5hh; x1 = 1.2ww;
 x8 = x2 = 1.8ww;  y2 = hh;
 x3 = 1.75ww; y3 = .4hh;
 x5 = x7 = 2.3ww;
 x6 = 3ww; y6 = 1.2hh;
 y7 = 2.2hh; y8 = 1.9hh; 
 x9 = 3.3ww; y9 = 1.6hh;
 z10 = (x5,.5[y5,y3]);
 
 p0 = z0{z3-z1}..{z2-z0}z3..{z1-z3}z2..{z0-z2}z1..{z3-z1}z0; 
 z4 = point 1.8 of p0;
 p1 = z4{z5-z4}..{right}z5..{up}z6..{left}z7..{down}z8..{right}z9;
 z11 = point 4.3 of p1;
 z12 = .15[z11,z7];
 p2 = subpath (0,2) of p1;
 p3 = p2{down}..z10..{z4-z10}z4..cycle;
 p4 = subpath (4,5) of p1;
 p5 = p4{z12-z9}..z12..{up}z8..cycle; 

 pickup pencircle scaled b;
 draw p0;
 draw p1;
 fill p3;
 fill p5;

 endchar;