/* Copyright (C) 1996 by Thomas Glen Smith.	All Rights Reserved. */
/* execspes APL2 V1.0.0 ************************************************
* Called by execspez.                                                  *
***********************************************************************/
#define INCLUDES APLCHDEF+APLTOKEN+APLCB+TREE
#include "includes.h"
Aplcb execspes(out)
Aplcb out;
{
	Enlist; Integer;

	for(;;) {
		if (out == NULL) break;
		if (out->aplflags & APLAPL) 
			out = enlist(out); /* kiss */
		if (out == NULL) break;
		if (!(out->aplflags & APLINT))
			out = integer(out);
		break;
	}
	return(out);
}