#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Aplmsg; Binom; Binomp; Binomx; Dyadic;
     Endoper; Ibinom; Ibinomp; Idyadic; Litvect; Quadout;
     double left[2],rite[2],ret[2];
     int ileft,irite,iret;
     #include "aplinit.h"

     endoper(quadout(dyadic(binom,
          litvect("2 2.1"),
          litvect("5 5.6"))));
     *left = 2.1;
     *rite = 5.6;
     binomp(left,rite,ret);
     printf("binomp returned %f\n",*ret);
     *left = 2.0;
     *(left + 1) = 0.0;
     *rite = 3.0;
     *(rite + 1) = 2.0;
     binomx(left,rite,ret);
     printf("binomx returned %fj%f\n",*ret,*(ret+1));
     endoper(quadout(idyadic(ibinom,
          litvect("2 3 4"),
          litvect("6 18 24"))));
     ileft = 2;
     irite = 5;
     ibinomp(&ileft,&irite,&iret);
     printf("ibinomp returned %d\n",iret);
}