#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     And; Andp; Dbland; Dblandp; Dyadic; Endoper;
     Iand; Iandp; Idyadic; Litvect; Quadout; Relative;
     double left=1.0,rite=1.0,ret;
     int ileft=1,irite=1,iret;
     #include "aplinit.h"

     endoper(quadout(relative(and,
          litvect("0.0 0.0 1.0 1.0"),
          litvect("0.0 1.0 0.0 1.0"))));
     endoper(quadout(dyadic(dbland,
          litvect("0.0 0.0 1.0 1.0"),
          litvect("0.0 1.0 0.0 1.0"))));
     endoper(quadout(idyadic(iand,
          litvect("0 0 1 1"),
          litvect("0 1 0 1"))));
     andp(&left,&rite,&iret);
     printf("andp returned %d\n",iret);
     printf("dbland returned %f\n",dbland(left,rite));
     dblandp(&left,&rite,&ret);
     printf("dblandp returned %f\n",ret);
     printf("iand returned %d\n",iand(ileft,irite));
     iandp(&ileft,&irite,&iret);
     printf("iandp returned %d\n",iret);
}