beginchar(oct"006",.4em#,.5cap#,0dth#); "C Diatoniki Martiria"; 
picture ACK;
 path p[];

 Diam = .4w;
 w := w + .4w;
 y0 = y2 = y5 = .4h;
 x1 = x3 = .25w;
 x0 = .125w;
 x2 = .4375w;
 x5 = .9375w;
 y4 = .2h; 
 x4 = .6875w;
 y1 = .6h;
 y3 = .3h;
 p1 = flex(z2,z3,z0) & flex(z0,z1,z2) & flex(z2,z4,z5);
 pickup pencircle scaled .9pt;
 draw p1;
 undraw flex(z2,z4,z5);
 pickup pencircle xscaled pt yscaled .5pt rotated 5;
 draw flex(z2,z4,z5) xscaled 1.5;
 ACK = currentpicture;
 endchar;