#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Indexv; Iscalar; Litvect; Quadout;
     #include "aplinit.h"

     indxorg = 1; /* index origin */
     endoper(
          quadout( /* -------------------------> 10 */
               indexv(
                    litvect("10 20 30"),
                    iscalar(1),
                    NULL)));
     indxorg = 0; /* index origin */
     endoper(
          quadout( /* -------------------------> 20 */
               indexv(
                    litvect("10 20 30"),
                    iscalar(1),
                    NULL)));
}