beginchar("a",.4em#,3cap#/7,0dth#); "alpha"; 
picture alfa;
path p[];
 save ww,hh;

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

 z0 = (3.5ww,3hh);
 x1 = x2 = 3ww; y1 = 1.6hh;
 x3 = x5 = 2ww;
 y3 = 3hh - y5 = 2.8hh;
 y2 = 3hh - y1;
 x4 = .8ww; y4 = .5[y1,y2];
 x6 = 3.8ww; y6 = .5hh;
 z7 = z1;
 z8 = z2;
 z9 = .5[z0,z1];
 x10 = .5[x2,x6];
 p0 = z1..z3{left}..z4{down}..z5{right}..z2;
 z11 = point 3.7 of p0;
 y10 = y11;

 penpos0(b,angle(z1-z0) + 90);
 penpos9(4b,angle(z1-z0) + 90);
 penpos1(.5b,180);
 penpos7(.5b,angle(z1-z0) + 90);
 penpos3(4b,270);
 penpos4(1.6b,0);
 penpos5(4b,90);
 penpos2(.5b,180);
 penpos10(5b,angle(z6-z2) + 90);
 penpos8(.5b,angle(z6-z2) + 90);
 penpos6(5b,angle(z6-z2) + 90);

 penstroke z0e--z9e--z7e;
 penstroke z1e..z3e{left}..z4e{down}..z5e{right}..z2e;
 penstroke z8e..z10e..z6e;
 alfa = currentpicture;
endchar;