/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* execmong APL2 V1.0.0 ************************************************
* Called by execexed to perform any monadic functions on the stack.    *
***********************************************************************/
#define INCLUDES APLCB+TREE+APLTOKEN
#include "includes.h"
void execmong()
{
     Execmona;
     extern Treelist treehdr;
     extern int aplerr;

     while (aplerr == 0 &&
     	treehdr->avlexec->avlfunst != NULL && 
          treehdr->avlexec->avloprst != NULL)
          execmona(NULL);
}