beginchar("k",.3em#,3cap#/7,0dth#); "kappa"; 
picture KAPA;
path p[];
 save ww,hh;

 ww = w/3; hh = h/3; 
 b := .15ww;

z0 = 1.5*(ww,hh);
z1 = (2.5ww,2.8hh);
z2 = (2.7ww,.3hh);
z3 = (.3ww,.2hh);
z4 = (.3ww,2hh);
z5 = z6 = z7 = z0;
z8 = .8[z0,z1];
z10 = .8[z0,z3];
z11 = (2ww,.6hh);
z12 = (.6ww,2.4hh);
z13 = (.5[x12,x0],y4);


penpos0(0,135);
penpos8(4b,135);
penpos1(b,135);

penpos6(0,315);
penpos10(4b,315);
penpos3(b,315);

penpos7(0,45);
penpos11(5b,45);
penpos2(b,45);

penpos5(b,225);
penpos13(2b,225);
penpos12(5b,270);
penpos4(2b,315);

penstroke z0e..z8e..z1e;
penstroke z5e..z13e..z12e..z4e;
penstroke z6e..z10e..z3e;
penstroke z7e..z11e..z2e;

KAPA = currentpicture;
endchar;