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

 ww = w/10; hh = h/5;
 b := ww;
 
 y3 = y6 = y8 = 9hh;
 y0 = y10;
 x13 = x1 = x2 = x3 = x9 = x11;
 x14 = x4 = x5 = x6 = x10 = x12;
 x1 = 10ww - x4 = ww;
 y1 = y4 = 0; x0 = 5ww;
 y2 = y5 = .25[y1,y3];
 y9 = y10 = .5[y1,y3];
 y11 = y12 = .75[y1,y3];
 y13 = y14 = .5[y6,y12];
 p6 = z13{right}..{right}z0{right}..{right}z14;
 z15 = point .5 of p6;
 z16 = point 1.5 of p6;
 z17 = (x15,y3);
 z18 = (x16,y6);
 
 penpos1(2b,0);
 penpos2(.6b,0);
 penpos9(1.7b,0);
 penpos11(.6b,0);
 penpos3(b,0);
 penpos6(b,0);
 penpos12(.6b,0);
 penpos10(1.7b,0);
 penpos5(.6b,0);
 penpos4(2b,0);
 penpos13(b,90);
 penpos0(.6b,90);
 penpos14(b,90);
 penpos15(1.7b,angle(z15-z3)+90);
 penpos16(1.7b,angle(z16-z6)-90);

 penstroke z1e..z2e..z9e..z11e..z3e;
 penstroke z4e..z5e..z10e..z12e..z6e;
 penstroke z13e{right}..z15e..{right}z0e{right}..z16e..{right}z14e;
 pickup pencircle scaled .4pt;
 draw p6;
 draw z5..controls z1..z0..z17;
 draw z2..controls z4..z0..z18;
 draw fullcircle scaled .5b shifted (z17);
 draw fullcircle scaled .5b shifted (z18);
 pickup pencircle scaled b;
 drawdot z3;
 drawdot z6;


endchar;