#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
	Binomx; Dividex; Gammax; Minusx; Timesx;
	double wrka[2],wrkb[2],wrkc[2];
	double left[]={2.0,0},rite[]={3.0,2.0},ret[2]={0,0};
	double *m=left,*n=rite;
     #include "aplinit.h"

	printf("left == %fj%f\n",left[0],left[1]);
	printf("rite == %fj%f\n",rite[0],rite[1]);
	binomx(left,rite,ret);
	printf("ret == %fj%f\n",ret[0],ret[1]);

	minusx(n,m,wrka);		/* wrka == n_m */
printf("minusx(n,m,wrka) == %fj%f == n_m\n",wrka[0],wrka[1]);
	gammax(wrka,wrkb,1);	/* wrkb == !n_m */
printf("gammax(wrka,wrkb,1) == %fj%f == !n_m\n",wrkb[0],wrkb[1]);
	gammax(m,wrka,1);		/* wrka == (!m) */
printf("gammax(m,wrka,1) == %fj%f == (!m)\n",wrka[0],wrka[1]);
	timesx(wrka,wrkb,wrkc);	/* wrkc == (!m)X!n_m */
printf("timesx(wrka,wrkb,wrkc) == %fj%f == (!m)X!n_m\n",wrkc[0],wrkc[1]);
	gammax(n,wrka,1);		/* wrka == (!n) */
printf("gammax(n,wrka,1) == %fj%f == (!n)\n",wrka[0],wrka[1]);
	dividex(wrka,wrkc,ret);	/* ret  == (!n)%(!m)X!n_m */
printf("dividex(wrka,wrkc,ret) == %fj%f == (!n)%%(!m)X!n_m\n",ret[0],ret[1]);
}