#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Dblnot; Dblnotp; Endoper; Imonadic; Inot;
     Litvect; Monadic; Not; Quadout;
     double rite,ret;
     #include "aplinit.h"

     endoper(quadout(monadic(dblnot,
          litvect("3.0 2 1 0"))));
     endoper(quadout(imonadic(inot,
          litvect("3 2 1 0"))));
     rite = -5.6;
     dblnotp(&rite,&ret);
     printf("dblnotp returned %f\n",ret);
     rite = 1.0;
     printf("not returned %d\n",not(rite));
}