beginchar("U",em#,5cap#/7,0); "Psi";
path p[];
 save ww, hh,dd;

 ww = w/10; hh = h/5;
 b := ww;

 x0 = x6 = x7 = 5ww;
 y7 = 0; y6 = 9hh;
 y0 = 2hh;
 x1 = 10ww - x5 = ww;
 y1 = y5 = 5.5hh;

 p1 = z1{right}..{right}z0{right}..{right}z5;
 p2 = z6..z0..z7;
 z2 = point  .5 of p1;
 z3 = point  1.5 of p1;
 z4 = z0;
 z8 = .5[z6,z0];
 y9 = y10 = .3[y6,y8];
 x9 = 10ww - x10 = x2;
 x11 = x12 = x7;
 y11 = .5hh;
 y12 = hh;

 penpos1(b,90);
 penpos2(1.7b,0);
 penpos0(.6b,90);
 penpos3(1.7b,180);
 penpos5(b,90);
 penpos4(b,0);
 penpos6(b,0);
 penpos7(2b,0);
 penpos8(1.7b,0);

 penstroke z1e{right}..z2e..{right}z0e{right}..z3e..{right}z5e;
 penstroke z6e{down}..z8e..z4e..{down}z7e;

 pickup pencircle scaled b;
 drawdot z6;
 drawdot z1;
 drawdot z5;
 pickup pencircle scaled .4pt;
 draw z11{left}..z1..{up}z10;
 draw z12{right}..z5..{up}z9;
 draw fullcircle scaled .5b shifted (z9);
 draw fullcircle scaled .5b shifted (z10);

 endchar;