#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Circular; Dyadic; Endoper; Form; Litvect;
     Aplcb answer,left=NULL;
     #include "aplinit.h"

     answer = form(left,dyadic(circular,
       litvect("-2.0"), /* inverse cosine */
       litvect("0.707")));
     printf(
       "The arc whose cosine is 0.707 is %s radians.\n",
       answer -> aplptr . aplchar);
     endoper(answer);
     answer = form(litvect("5 3"),dyadic(circular,
       litvect("-2.0"), /* inverse cosine */
       litvect("0.707")));
     printf(
       "The arc whose cosine is 0.707 is %s radians.\n",
       answer -> aplptr . aplchar);
     endoper(answer);
}