beginchar("l",.3em#,2cap#/7,.5dth#); "Lambda";
picture lamda;
path p[];
 save ww,hh,dd;

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

 x0 = x3 = .4ww;
 x1 = .7ww; y1 = 1.6hh;
 y2 = y3 = -.9dd;
 x2 = 2.4ww; y0 = 1.4hh;
 p0 = z0{z1-z0}..{right}z1{z2-z1}..z2;
 z4 = point 1.25 of p0;

 penpos0(1.3b,angle(z1-z0)+70);
 penpos1(1.5b,90);
 penpos2(1.5b,0);
 penpos3(1.5b,0);
 penpos4(.7b,angle(z3-z4)+90);
 penstroke z0e{z1-z0}..{right}z1e{z2-z1}..{dir-30}z2e;
 penstroke z4e..z3e;

lamda = currentpicture;
endchar;