newtp
t = newtp(TCOM);
t = newtp(TCOM);
t = newtp(TDBRACKET);
t = newtp((c == FOR) ? TFOR : TSELECT);
t = newtp((c == WHILE) ? TWHILE : TUNTIL);
t = newtp(TCASE);
t = newtp(TIF);
static struct op *newtp ARGS((int type));
t = newtp(0);
t = newtp(TELIF);
t = newtp(TPAT);
t = newtp(TFUNCT);
t->left = newtp(TCOM);
t = newtp(type);
outtree = newtp(TEOF);