beginchar("p",.3em#,2cap#/7,0dth#); "pi"; picture PEE; path p[]; save ww,hh; ww = w/3; hh = h/2; b := .2ww; x0 = 1.1ww; x4 = ww; x1 = x3 = 2ww; y0 = y1 = .1hh; y5 = y4 = 1.5hh; y3 = y4 - .05hh; y2 = y4 - .1hh; x5 = 3ww - x2 = .2ww; z6 = (.1ww,1.2hh); z7 = (x4,.3hh); z8 = (2.1ww,.4hh); z9 = z4; z10 = z3; penpos6(1.5b,180); penpos5(2b,90); penpos4(2b,90); penpos3(2b,90); penpos2(2b,90); penpos9(b,0); penpos10(b,0); penpos1(b,0); penpos8(3b,0); penpos7(2b,0); penpos0(1.5b,90); penstroke z6e{up}..z5e{right}..z4e{z3-z4}..z3e{z2-z3}..z2e; penstroke z9e{down}..{down}z7e..{right}z0e; penstroke z10e{down}..z8e..z1e; PEE = currentpicture; endchar;