#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Chrvect; Endoper; Iscalar; Litvect; Perm;
     Quadout; Reshape; Rotate; Temp;
     Aplcb m;
     #include "aplinit.h"

     endoper(quadout(  /* --------> 5 7 11 2 3 */
               rotate(
                    iscalar(2),
                    litvect("2 3 5 7 11"),
                    1 /* axis */
               )
          ));
     m=perm(quadout( /* -------------------> ABCD */
               reshape(                   /* EFGH */
                    litvect("3 4"),       /* IJKL */
                    chrvect("ABCDEFGHIJKL")
               )
          ));
     endoper(quadout( /* ------------------> AFKD */
               rotate(                    /* EJCH */
                    litvect("0 1 2 3"),   /* IBGL */
                    m,
                    1 /* axis */
               )
          ));
     endoper(quadout( /* ------------------> BCDA */
               rotate(                    /* GHEF */
                    litvect("1 2 3"),     /* LIJK */
                    m,
                    2 /* axis */
               )
          ));
     endoper(temp(m));
}