beginchar("u",.5em#,4cap#/7,.5dth#); "psi";
path p[];
 save ww,hh,dd,phdr;

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

x0 = 5ww - x3 = .2ww;
x1 = .1[x0,x3];
x4 = .5[x1,x3];
x2 = .55[x1,x3];
x5 = .6[x1,x3];
y3 = y0 = 1.5hh; y1 = 2hh;
y2 = 0; y4 = 3hh; y5 = -.8dd;
z6 = z2;

p0 = z0{up}..{right}z1..{right}z2..{up}z3;
z7 = point 1.2 of p0;
phdr = angle direction 1.2 of p0;
penpos0(1.5b,0);
penpos1(b,270);
penpos7(2.3b,phdr-90);
penpos2(2.3b,270);
penpos3(2b,0);
penpos4(3b,0);
penpos6(2b,0);
penpos5(2b,0);
penstroke z0e{up}..{right}z1e..z7e..{right}z2e..{up}z3e;
penstroke z4e{down}..z6e{down}..z5e;

pickup pencircle scaled 3b;
drawdot z4;
pickup pencircle scaled 1.5b;
drawdot z0;
pickup pencircle scaled 2b;
drawdot z5;
drawdot z3;
endchar;