#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Divide; Dividep; Dividex; Dyadic; Endoper;
     Idivide; Idyadic; Iscalar; Quadout; Scalar;
     double left[2],rite[2],ret[2];
     #include "aplinit.h"

     endoper(quadout(dyadic(
       divide,scalar(1.0),scalar(4.0))));
     endoper(quadout(idyadic(
       idivide,iscalar(50),iscalar(10))));
     *left = 2.1;
     *rite = 5.6;
     dividep(left,rite,ret);
     printf("dividep returned %f\n",*ret);
     *left = 0;
     *(left + 1) = 12.0;
     *rite = 4.0;
     *(rite + 1) = 0;
     dividex(left,rite,ret);
     printf("dividex returned %fj%f\n",*ret,*(ret+1));
}