beginchar(oct"017",.4em#,.5cap#,0dth#); "E Diatoniki Martiria"; 
picture SI;
 path p[];

 x0 = w - x2 = curve_sidebar;
 x1 = 17w/50; y1 = 4.3h/5;
 y0 = y7 = 3.5h/5; y2 = y4 = .1h;
 z3 = .4[z7,z2];
 x7 = .6w;
 z5 = .8[z7,z2];

 pickup pencircle scaled .8pt;
 p1 = flex(z0,z1,z7) & z7--z2;
 draw p1;
 p3 = z5--z2 rotatedabout(z5,120);
 p4 = z3--z2 rotatedabout(z3,-65);
 draw p3;
 draw p4;
 SI = currentpicture;
 endchar;