#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Dblnand; Dblnandp; Dyadic; Endoper; Idyadic; Inand;
     Inandp; Litvect; Nand; Nandp; Relative; Quadout;
     double left=1.0,rite=1.0,ret;
     int ileft=1,irite=1,iret;
     #include "aplinit.h"

     endoper(quadout(relative(nand,
          litvect("0.0 1.1 2.2 3.3"),
          litvect("1.1 3.3 2.2 1.1"))));
     endoper(quadout(dyadic(dblnand,
          litvect("0.0 0.0 1.0 1.0"),
          litvect("0.0 1.0 0.0 1.0"))));
     endoper(quadout(idyadic(inand,
          litvect("0 1 2 3"),
          litvect("1 3 2 1"))));
     nandp(&left,&rite,&iret);
     printf("nandp returned %d\n",iret);
     printf("dblnand returned %f\n",dblnand(left,rite));
     dblnandp(&left,&rite,&ret);
     printf("dblnandp returned %f\n",ret);
     printf("inand returned %d\n",inand(ileft,irite));
     inandp(&ileft,&irite,&iret);
     printf("inandp returned %d\n",iret);
}