beginchar ("e",.3em#,3cap#/7,0dth#); "epsilon"; 
picture epsilon;
path p[];
 save ww,hh;

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

x0 = x2 = x4 = 2.2ww;
x1 = x3 = .8ww;
y1 = 3hh - y3 = .9hh;
y0 = 3hh - y4 = .5hh;
y2 = .5[y0,y4];

p0 = z0..{up}z1..{dir290}z2{dir230}..z3{up}..z4;
p1 = subpath (1.27,2) of p0;
p2 = subpath (2,2.72) of p0;
fill p1..p2..cycle;

penpos0(4b,300);
penpos1(3b,180);
penpos2(.1b,0);
penpos3(3b,180);
penpos4(4b,60);
penstroke z0e..{up}z1e..{dir290}z2e{dir230}..z3e{up}..z4e;

pickup pencircle scaled 4b;
drawdot z0;
drawdot z4;

epsilon = currentpicture;
endchar;