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

     m=perm(
          quadout(
               reshape(
                    litvect("3 3"),
                    chrvect("ABCDEFGHI")
               )
          )
     );
/*                                        abc
                                          def
                                          ghi
*/
     n=perm(
          quadout(
               reshape(
                    litvect("3 3"),
                    chrvect("123456789")
               )
          )
     );
/*
                                         123
                                         456
                                         789
*/
     endoper(quadout(laminate(m,n,0.5)));
/*
                                         abc
                                         def
                                         ghi

                                         123
                                         456
                                         789
*/
     endoper(quadout(laminate(m,n,1.5)));
/*
                                         abc
                                         123

                                         def
                                         456

                                         ghi
                                         789
*/
     endoper(quadout(laminate(m,n,2.5)));
/*
                                         a1
                                         b2
                                         c3

                                         d4
                                         e5
                                         f6

                                         g7
                                         h8
                                         i9
*/
     endoper(temp(m));
     endoper(temp(n));
     endoper(
          quadout(
               ravel(
                    laminate(
                         reshape(
                              litvect("2 2"),
                              chrvect("1234")
                         ),
                         chrvect("+"),
                         2.5
                    )
               )
          )
     );
/*                                       1+2+3+4+ */
}