beginchar(oct"053",.8em#,cap#,0dth#); "Antikenoma"; picture ANTIKENWMA; path p[]; z0 = (0,.5h); z1 = (7w/8,.5h); z2 = (6.5w/8,1.8h/5); z3 = (5.3w/8,1.5h/5); z4 = (.5[x0,x1],.55h); p1 = z0..z4..z1; z5 = point 1.5 of p1; z6 = point 1.75 of p1; z7 = (.7[x5,x6],.4[y6,y2]); p2 = z1{z1-z4}..z2{z3-z2}..z3; p4 = reverse subpath (0,2) of p2; p5 = reverse subpath (1,2) of p1; p3 = z4{z1-z4}..{z2-z5}z7{z2-z6}..{z3-z7}z3..p4..p5..cycle; pickup pencircle scaled .4pt; draw p1; draw p2; fill p3; ANTIKENWMA = currentpicture; endchar;