lexi
struct wordent lexi, *hp, *wdp;
hp = &lexi;
return (&enthist(-1000, &lexi, 0)->Hlex);
lexer_symbol lsym = lexi();
lexer_symbol lexi(void);