enthist
struct Hist *enthist(int, struct wordent *, int);
(void) enthist(++eventno, sp, 1);
return (&enthist(-1000, &lexi, 0)->Hlex);