beginchar("F",em#,5cap#/7,0dth#); "Fi";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;

 x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww;
 y0 = 10hh - y1 = 0;
 y2 = .25[y0,y1];
 y3 = .5[y0,y1];
 y4 = .75[y0,y1];
 y5 = .5[y1,y4];
 y6 = .5[y3,y4];
 y7 = .5[y3,y2];
 y8 = .5[y0,y2];
 y9 = y10 = 5hh;
 x9 = 10ww - x10 = .5hh;
 z13 = z11 = z5;
 z14 = z12 = z8;
 p1 = z5{right}..{down}z10..{left}z8..{up}z9..{right}z5;
 z15 = point .5 of p1;
 z16 = point 1.5 of p1;
 z17 = point 2.5 of p1;
 z18 = point 3.5 of p1;
 y19 = y20 = y3;
 x19 = 10ww - x20 = .25[x9,x3];
 y21 = y22 = y4;
 x21 = 10ww - x22 = .5[x4,x18];

 penpos0(2b,0);
 penpos1(b,0);
 penpos8(.6b,0);
 penpos7(.6b,0);
 penpos6(.6b,0);
 penpos5(.6b,0);
 penpos2(1.7b,0);
 penpos3(1.7b,0);
 penpos4(1.7b,0);
 penpos9(1.2b,0);
 penpos10(1.2b,0);
 penpos11(b,270);
 penpos13(b,90);
 penpos14(b,270);
 penpos12(b,90);
 penpos15(.5b,45);
 penpos16(.5b,-45);
 penpos17(.5b,45);
 penpos18(.5b,315);

 penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e;
 penstroke z11e{left}..z18e..{down}z9e..z17e..{right}z12e;
 penstroke z13e{right}..z15e..{down}z10e..z16e..{left}z14e;
 pickup pencircle scaled b;
 drawdot z1;
 pickup pencircle scaled .4pt;
 draw z16{up}..z19..{up}z21;
 draw z17{up}..z20..{up}z22;
 draw fullcircle scaled .5b shifted (z21);
 draw fullcircle scaled .5b shifted (z22);

 endchar;