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

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

 y2 = y4 = y6 = .6hh;
 y7 = .2hh; y1 = y3 = y5 = .1hh;
 x7 = hh; 
 x1 = 1.25ww;
 x3 = 1.9ww;
 x5 = 2.8ww;
 x2 = 1.5ww;
 x4 = 2.35ww;
 x6 = 3.15ww;
 z8 = z2;
 z9 = z4;
 z10 = (3.35ww,.7hh);

 penpos7(.7b,180);
 penpos1(1.1b,-90);
 penpos3(1.1b,-90);
 penpos5(1.1b,-90);
 penpos2(b,angle(z3-z2)+90);
 penpos8(b,180);
 penpos4(1.2b,angle(z4-z3)-90);
 penpos9(b,180);
 penpos6(.8b,0);
 penpos10(1.5b,90);
 penpos11(.7b,180);

 penstroke z7e{down}..{right}z1e{right}..{z2-z3}z2e;
 penstroke z8e{down}..z3e{right}..{z4-z3}z4e;
 penstroke z9e{down}..z5e{right}..{up}z6e;
 penstroke z10e{left}..z7e{down};

 pickup pencircle scaled 1.5b;
 drawdot z10;
 pickup pencircle scaled 1.2b;
 drawdot z4;
 pickup pencircle scaled b;
 drawdot z2;
 endchar;