beginchar("z",.3em#,4cap#/7,.5dth#); "zeta"; 
path p[];
 save ww,hh,dd;

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

x5 = ww; x1 = .8ww;
x2 = x4 = 2.8ww;
y1 = -.6dd;
y2 = 0;
y5 = y4 = 3hh;
y3 = .5[y2,y4];
x3 = .4ww;

penpos1(4b,270);
penpos2(4b,30);
penpos3(4b,-10);
penpos4(4b,0);
penpos5(4b,190);

penstroke z1e{dir-25}..{up}z2e..{up}z3e..{up}z4e..{dir-120}z5e;
pickup pencircle scaled 4b;
drawdot z1;
drawdot z5;

endchar;