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;