#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Imonadic; Isign; Isignp; Litvect; Monadic;
     Rmonadic; Quadout; Signdbl; Signdblp; Signdblx;
     Signum;
     double rite[2],ret[2];
     int irite,iret;
     #include "aplinit.h"

     endoper(quadout(monadic(signdbl,
          litvect("3.14 0 -3.14"))));
     endoper(quadout(rmonadic(signum,
          litvect("3.14 0 -3.14"))));
     endoper(quadout(imonadic(isign,
          litvect("-3 0 4"))));
     irite = -4;
     isignp(&irite,&iret);
     printf("isign returned %d\n",iret);
     *rite = 50.0;
     signdblp(rite,ret);
     printf("signdblp returned %f\n",*ret);
     *(rite+1) = -5.0;
     signdblx(rite,ret);
     printf("signdblx returned %fj%f\n",*ret,*(ret+1));
     printf("signum returned %d\n",signum(-10.0));
}