gpbc
while ((c = gpbc()) != '\n' && c != EOF)
t = gpbc();
t = gpbc();
l = gpbc();
t = gpbc();
pushback(l = gpbc());
while (isspace(l = gpbc())) /* skip blank, tab, nl.. */
while (isspace(l = gpbc()))
t = gpbc();
while ((isalnum(c = gpbc()) || c == '_') && tp < etp)
while (isalnum(c = gpbc()) || c == '_') {