beginchar(oct"220",.em#,6cap#/7,dth#); "g`ar";
 path p[];
 save ww,hh,dd;

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

 z0 = (ww,.7hh);
 z1 = (1.3ww,hh);
 z2 = (1.6ww,.7hh);
 z3 = (1.15ww,-.8dd);
 p1 =  z0{up}..{right}z1..{down}z2{z3-z2}..z3;
 z4 = point 2.5 of p1;
 z5 = (1.9ww,.5hh);
 p2 = z3{left}..z4{z5-z4}..z5;
 z6 = point 1.7 of p2;
 z7 = (2ww,0);
 z8 = (2.35ww,.3hh);
 z9 = (2ww,1.2hh);
 z10= (2.2ww,1.4hh);
 z11= (2.1ww,1.1hh);
 p3 = z5{dir 170}..z6{z7-z6}..z7..z8{z9-z8}..z9..z10..z11;
 p0 = subpath(1,4) of p3;
 p7 = subpath(4,6) of p3;
 z12= (.5[x0,x2],.9hh);
 z13= (1.5ww,y2);
 p4 = z0..z12..z13{z4-z13}..z4{z2-z3}..{z2-z3}z2{up}..z1{left}..
 {down}z0..cycle;
 z14= .5[z7,z8];
 z15= (2.2ww,y8);
 p5 = p0 & z9{dir-100}..z15..z14..{z6-z14}z6..cycle;
 z16= (x10,y9);
 z17= .5[z9,z10];
 p6 = z9..z17{z10-z17}..z16..z11 & reverse p7..cycle;
pickup pencircle scaled .8pt;
draw p1;
draw p2;
draw p3;
fill p4;
fill p5;
fill p6;
endchar;