beginchar("s",.3em#,3cap#/7,.5dth#); "sigma teliko"; 
path p[];
 save ww,hh,dd,phdr;

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

 x0 = x2 = 2.3ww;
 x3 = 1.8ww;
 x1 = .1ww;
 y0 = 3hh - y2 = 2.9hh;
 y1 = .5[y0,y2];
 y3 = -.4dd;
 z4 = z2;

 p0 = z0{left}..z1{down}..{right}z2;
 z5 = point 1.5 of p0;
 phdr = angle direction 1.5 of p0;

 penpos0(3b,270);
 penpos1(b,0);
 penpos2(b,90);
 penpos4(b,angle(z3-z2)+90);
 penpos3(b,angle(z3-z2)+90);
 penpos5(2.5b,phdr+90);

 penstroke z0e{left}..z1e{down}..z5e..{right}z2e;
 penstroke z4e{z3-z2}..{z3-z2}z3e;

 pickup pencircle scaled 3b;
 drawdot z0;

endchar;