#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Conjug; Conjugp; Conjugx; Endoper; Iconjug;
     Iconjugp; Imonadic; Endoper; Litvect; Monadic;
     Quadout;
     double rite[2],ret[2];
     int irite,iret;
     #include "aplinit.h"

     endoper(quadout(monadic(conjug,
          litvect("3.14 -3.14"))));
     endoper(quadout(imonadic(iconjug,
          litvect("-1 0 1 2 3"))));
     *rite = -5.6;
     conjugp(rite,ret);
     printf("conjugp returned %f\n",*ret);
     *rite = 1.0;
     *(rite+1) = 2.0;
     conjugx(rite,ret);
     printf("conjugx returned %fj%f\n",*ret,*(ret+1));
	irite=-1;
     iconjugp(&irite,&iret);
     printf("iconjugp returned %d\n",iret);
}