#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Dyadic; Endoper; Idyadic; Iminus; Litvect;
     Minus; Minusp; Minusx; Quadout;
     double left[2],rite[2],ret[2];
     #include "aplinit.h"

     endoper(quadout(dyadic(minus,
          litvect("-3.1 0 3.1"),
          litvect("-3.2 0 3.2 "))));
     endoper(quadout(idyadic(iminus,
          litvect("-3 -2 -1 0  1  2 3"),
          litvect("-3  2  1 0 -1 -2 3"))));
     *left = 2.1;
     *rite = 5.6;
     minusp(left,rite,ret);
     printf("minusp returned %f\n",*ret);
     *left = 0;
     *(left + 1) = 12.0;
     *rite = 4.0;
     *(rite + 1) = 0;
     minusx(left,rite,ret);
     printf("minusx returned %fj%f\n",*ret,*(ret+1));
}