#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
	Endoper; Factorl; Factorlp; Factorlx;
     Ifactorl; Ifactorp; Imonadic; Litvect;
     Monadic; Quadout;
     double rite[2],ret[2];
     int irite,iret;
     #include "aplinit.h"

     endoper(quadout(monadic(factorl,
       litvect("0 1 2 3 4 -0.5 0.5 1.5"))));
     endoper(quadout(imonadic(ifactorl,
       litvect("0 1 2 3 4"))));
     *rite = -0.5;
     factorlp(rite,ret);
     printf("factorlp returned %f\n",*ret);
     *rite = 4.0;
     *(rite+1) = 2.0;
     factorlx(rite,ret);
     printf("factorlx returned %fj%f\n",*ret,*(ret+1));
	irite=5;
     ifactorp(&irite,&iret);
     printf("ifactorp returned %d\n",iret);
}