beginchar(oct"016",.4em#,.5cap#,0dth#); "F Diatoniki Martiria"; 
picture SO;
 path p[];

 y0 = y1 = .275h;
 x0 = .2w; y8 = h/25;
 x8 = x6 = w; 
 x2 = x1 = 2w/5;
 y2 = y4 = .9h;
 x4 = x5 = 4w/5;
 x3 = 3w/5; y3 = h;
 y6 = y5 = 15h/50; 
 x7 = 5.3w/5; y7 = y8;

 p1 = fullcircle scaled Diam shifted (z0);
 p2 = z1--z2;
 p3 = flex(z2,z3,z4);
 p4 = z4--z5;
 p5 = z5--z6;
 p6 = z6..controls z8..z7;

 pickup pencircle scaled .8pt;
 draw p1;
 draw p2 & p3 & p4 & p5 & p6;
 SO = currentpicture;
 endchar;