#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
Ceil; Ceilp; Ceilx; Endoper; Litvect; Monadic; Quadout;
double num[2],ret[2];
#include "aplinit.h"
endoper(quadout(monadic(ceil,
litvect("3.14 -3.14"))));
*num = -3.14;
ceilp(num,ret);
printf("ceilp returned %f\n",*ret);
*num = 1.5;
*(num+1) = 2.5;
ceilx(num,ret);
printf("ceilx returned %fj%f\n",*ret,*(ret+1));
}