#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
   Endoper; Exp; Factorl; Litvect; Log;
   Monadic; Pitimes; Quadout;
   #include "aplinit.h"

   endoper(quadout(monadic(exp,
     litvect("0 1 2 3 4"))));

 /* 1 2.7182818285 7.3890560989 20.0855369232 54.5981500331 */

   endoper(quadout(monadic(factorl,
     litvect("0 1 2 3 4 -0.5 0.5 1.5"))));

 /* 1 1 2 6 24 1.7724538909 0.8862269267 1.3293403882 */

   endoper(quadout(monadic(log,
     litvect("1 2 3 4"))));

 /* 0 0.6931471806 1.0986122887 1.3862943611 */

   endoper(quadout(monadic(pitimes,
     litvect("0 1 2 3 4"))));

 /* 0 3.1415926536 6.2931853072 9.4247779608 12.5563706144 */
}