#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Imonadic; Inegatip; Inegativ;
     Litvect; Monadic; Negative; Negativp;
     Negativx; Quadout;
     double rite[2],ret[2];
     int irite,iret;
     #include "aplinit.h"

     endoper(quadout(monadic(negative,
          litvect("-12.3 45.6"))));
     endoper(quadout(imonadic(inegativ,
          litvect("-123 456"))));
     *rite = -5.6;
     negativp(rite,ret);
     printf("negativp returned %f\n",*ret);
     *rite = 1.0;
     *(rite+1) = -2.0;
     negativx(rite,ret);
     printf("negativx returned %fj%f\n",*ret,*(ret+1));
	irite=-1;
     inegatip(&irite,&iret);
     printf("inegatip returned %d\n",iret);
}