beginchar("n",.32em#,3.2cap#/7,.4dth#); "nu"; 
picture NH;
path p[];
 save ww,hh,dd;

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

y0 = y5 = 3.5hh;
x3 = x0 = x1 = .5ww;
y3 = .7[y0,y1];
x4 = 1.8ww; y4 = .2hh;
x5 = 3ww;
x2 = ww; 
y2 = - .8dd;
y1 = -.6dd;

penpos0(2.5b,180);
penpos1(1.8b,180);
penpos2(1.8b,270);
penpos3(2b,180);
penpos4(1.8b,270);
penpos5(2.5b,0);
penstroke z0e{down}..{down}z1e..{right}z2e;
penstroke z3e..{right}z4e..{z5-z4}z5e;

pickup pencircle scaled 2.5b;
drawdot z0;
drawdot z5;
pickup pencircle scaled 1.8b;
drawdot z2;
NH = currentpicture;
endchar;