beginchar("f",.5em#,4cap#/7,.5dth#); "phi";
picture fee;
path p[];
 save ww,hh,dd;

 ww = w/5; hh = h/4; dd = d/1;
 b := .2ww;

x0 = 5ww - x2 = .3ww;
x1 = x3 = .5[x0,x2];
x6 = x4 = x7 = x8 = .55[x0,x2];
y0 = y2 = 1.5hh;
y1 = y7 = 0;
y3 = y4 = 3hh;
y5 = 3.4hh; x5 = .4[x0,x2];
y6 = 3.6hh; y8 = -.8dd;

p0 = z0{down}..z1{right}..z2{up}..z3{left}..cycle;
p1 = z3{left}..{up}z5..z6{down}..z4{down}..z7{down}..z8;

pickup pencircle scaled 2b;
draw p0;
pickup pencircle scaled 2.5b;
draw p1;

fee = currentpicture;

endchar;