lexnumber
c = lexnumber(c);
static int lexnumber(wint_t c);
extern int lexnumber; /* Number of TNUMBER from scan() */
int lexnumber; /* Number of TNUMBER from scan() */
if (check(lexnumber, f))
for (i = beg; i <= lexnumber; i++)
beg = lexnumber;
lexnumber = metamess(lexstring[0], f);
if (lexnumber == -1)
lexnumber = numberstack[regretp];
lexnumber = 0;
lexnumber = lexnumber*10 + c - '0';
numberstack[regretp] = lexnumber;