#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Imonadic; Iroll; Irollp;
     Litvect; Monadic; Quadout; Roll; Rollp;
     double rite,ret;
     #include "aplinit.h"

     endoper(quadout(monadic(roll,
       litvect("23.0 23.0 23.0"))));
     endoper(quadout(imonadic(iroll,
       litvect("5 5 5 5 5"))));
     rite = 50.0;
     rollp(&rite,&ret);
     printf("rollp returned %f\n",ret);
     rite = 10;
     printf("roll returned %f\n",roll(rite));
}