#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Indxsub; Litvect; Quadout;
     Reshape; Transpos;
     Aplcb out;
     #include "aplinit.h"

     out = quadout(reshape(litvect("3 3"),indxsub(9)));
/*
                                                  1 2 3
                                                  4 5 6
                                                  7 8 9
*/
     out = quadout(transpos(litvect("1 1"),out));
/*
                                                 1 5 9
*/
     endoper(out);
}