beginchar("i",.2em#,3cap#/7,0dth#); "iota"; 
picture yota;
path p[];
 save ww,hh;

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

x6 = x4 = x3 = ww;
y3 = 3hh - y4 = .3hh;
y6 = .5[y4,y3];
z7 = (1.1ww,.5[y4,y6]);
z8 = (1.1ww,.5[y3,y6]);

penpos3(3b,0);
penpos4(b,0);
penpos6(1.2b,0);
penpos7(b,0);
penpos8(2.5b,0);

penstroke z4e{right}..z7e..z6e..z8e..{left}z3e;

yota = currentpicture;
endchar;