#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Dblor; Dblorp; Dyadic; Endoper; Idyadic;
     Ior; Iorp; Litvect; Or; Orp;
     Quadout; Relative;
     double left=1.0,rite=1.0,ret;
     int ileft=1,irite=1,iret;
     #include "aplinit.h"

     endoper(quadout(relative(or,
          litvect("1.1 2.2 3.3"),
          litvect("3.3 2.2 1.1"))));
     endoper(quadout(dyadic(dblor,
          litvect("0.0 0.0 1.0 1.0"),
          litvect("0.0 1.0 0.0 1.0"))));
     endoper(quadout(idyadic(ior,
          litvect("1 2 3"),
          litvect("3 2 1"))));
     orp(&left,&rite,&iret);
     printf("orp returned %d\n",iret);
     dblorp(&left,&rite,&ret);
     printf("dblorp returned %f\n",ret);
     printf("ior returned %d\n",ior(ileft,irite));
     iorp(&ileft,&irite,&iret);
     printf("iorp returned %d\n",iret);
}