letnum
for (; letnum(c); c = *cp)
for (; c != '_' && (letnum(c) || c == '#'); c = *cp++)
if (!letnum(c)) {
} else if (letnum(c)) {
while (*++s && letnum(*s))
while (s[0] == CHAR && letnum(s[1]));
#define is_wordch(c) (letnum(c))