#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
   Ceil; Dabs; Endoper; Floor; Litvect; Monadic;
   Negative; Quadout; Recip; Signdbl;
   #include "aplinit.h"

   endoper(quadout(monadic(dabs,
     litvect("3.14 -3.14")))); /* -> 3.14 3.14 */

   endoper(quadout(monadic(ceil,
     litvect("3.14 -3.14")))); /* -> 4 -3 */

   endoper(quadout(monadic(floor,
     litvect("3.14 -3.14")))); /* -> 3 -4 */

   endoper(quadout(monadic(negative,
     litvect("3.14 -3.14")))); /* -> -3.14 3.14 */

   endoper(quadout(monadic(recip,
     litvect("1 2 3 4")))); /* ----> 1 0.5 0.333 0.25 */

   endoper(quadout(monadic(signdbl,
     litvect("3.14 0 -3.14")))); /* --> 1 0 -1  */
}