NLFLG
if (flg & NLFLG)
r = makelist((b ? TAND : TORF), r, term(NLFLG));
if (flg & NLFLG)
right = makefork(FPIN, term(NLFLG));
r->regcom = cmd(0, NLFLG | MTFLG);
t->iftre = cmd(THSYM, NLFLG);
t->thtre = cmd(ELSYM | FISYM | EFSYM, NLFLG);
t->eltre = ((w = wdval) == ELSYM ? cmd(FISYM, NLFLG) : (w == EFSYM ? (wdval = IFSYM, item(0)) : 0));
t->fortre = cmd(wdval == DOSYM ? ODSYM : KTSYM, NLFLG);
t->whtre = cmd(DOSYM, NLFLG);
t->dotre = cmd(ODSYM, NLFLG);
r = cmd(KTSYM, NLFLG);
p->partre = cmd(')', NLFLG);
t = makefork(FPOU, cmd(EOFSYM, MTFLG | NLFLG ));
execute(cmd(NL, NLFLG | MTFLG), 0, (int)(flags & errflg));