lexi
struct wordent lexi;
struct wordent *hp = &lexi;
return (&enthist(-1000, &lexi, 0)->Hlex);
type_code = lexi(); /* lexi reads one token. The actual
type_code = lexi(); /* read another token */
int lexi(void);