#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Floor; Floorp; Floorx; Litvect; Monadic; Quadout;
     double num[2],ret[2];
     #include "aplinit.h"

     endoper(quadout(monadic(floor,
          litvect("-3.14 2.718"))));
     *num = -3.14;
     floorp(num,ret);
     printf("floorp returned %f\n",*ret);
     *num = 1.5;
     *(num+1) = 2.5;
     floorx(num,ret);
     printf("floorx returned %fj%f\n",*ret,*(ret+1));
}