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

     endoper(quadout(dyadic(
       times,scalar(2.2),scalar(3.0))));
     endoper(quadout(idyadic(
       itimes,iscalar(2),iscalar(3))));
     *left = 2.1;
     *rite = 5.6;
     timesp(left,rite,ret);
     printf("timesp returned %f\n",*ret);
     *left = 2.0;
     *(left + 1) = 12.0;
     *rite = 4.0;
     *(rite + 1) = 1.5;
     timesx(left,rite,ret);
     printf("timesx returned %fj%f\n",*ret,*(ret+1));
}