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

     c=perm(quadout(chrvect("#"))); /*----------->   #*/
     m=perm( /*----------------------------------> ABC*/
          quadout( /*                              DEF*/
               reshape( /*                         GHI*/
                    litvect("3 3"),
                    chrvect("ABCDEFGHI")
               ) /*                                ABC*/
          ) /*                                     DEF*/
     ); /*                                         GHI*/
     endoper(quadout(cat(m,m,1))); /*---------->   ABC*/
     /*                                            DEF*/
     /*                                            GHI*/

     endoper(quadout(cat(m,m,2))); /*---------->ABCABC*/
     /*                                         DEFDEF*/
     /*                                         GHIGHI*/

     endoper( /*-------------------------------> #####*/
          quadout( /*                            #ABC#*/
               cat( /*                           #DEF#*/
                    c, /*                        #GHI#*/
                    cat( /*                      #####*/
                         cat(
                              c,
                              cat(
                                   m,
                                   c,
                                   1
                              ),
                              1
                         ),
                         c,
                         2
                    ),
                    2
               )
          )
     );
     endoper(temp(c));
     endoper(temp(m));
}