setinputstring(s);
evalstring(char *s){	union node *n;	struct stackmark smark;	setstackmark(&smark);	setinputstring(s);	while ((n = parsecmd(0)) != NEOF) {		evaltree(n, 0);		popstackmark(&smark);		if (evalskip)			break;	}	popfile();	popstackmark(&smark);}