WSET
extern WSET *wsets;
register WSET *u, *v;
wsets = (WSET *) realloc((char *)wsets, sizeof (WSET) * wsetsz);
wsets = (WSET *) malloc(sizeof (WSET) * (nnontersz + 1));
WSET *wsets;
register WSET *p, *q;
register WSET *u;
WSET *u, *v;