1int ps;
2struct vp {
3  int wa;
4};
5typedef struct vp *vpt;
6typedef struct vc {
7  int o;
8  vpt py[8];
9} *vct;
10struct n {
11  int a;
12};
13struct nh {
14  int x;
15};
16typedef struct np *npt;
17struct np {
18  vct d;
19  int di;
20};
21struct nh xhp;
22struct n np[3];
23
24f(dp)
25     npt dp;
26{
27  vpt *py;
28  int a, l, o = 0;
29  a = dp->d->o;
30  if (dp->di < 0)
31    l = ps;
32
33  if ((int)o & 3)
34    g();
35
36  xhp.x = a;
37  py = &dp->d->py[dp->di];
38  if (o + l > ps)
39    np[2].a = (int)(py[1])->wa;
40}
41