beginchar(oct"007",.4em#,.5cap#,0dth#); "D Diatoniki Martiria"; 
 path p[];
 picture NANO,BEL,CHXOC;

 y1 = y3 = 3.3h/5;
 x1 = 3w/50;
 x3 = 20w/50;
 x2 = 12w/50; y2 = 4h/5;
 x4 = 15w/50; y4 = 17h/50;
 x5 = 18w/50; y5 = 13h/50;
 x6 = x2; y6 = h;

 pickup pencircle scaled .8pt;
 p1 = flex(z1,z2,z3) & z3..controls z4..z5;
 p2 = p1 shifted (.5w,0);
 p3 = p1 scaled 2;
 pickup pencircle scaled pt;
 draw p3;
 NANO = currentpicture;
 clearit;
 pickup pencircle scaled .8pt;
 draw p1;
 draw p2;
 BEL = currentpicture;
 z7 = z6 shifted (.5w,0);
 drawdot z6;
 drawdot z7;
 CHXOC = currentpicture;
 clearit;
 addto currentpicture also BEL;
 endchar;