#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Convect; Decode; Endoper; Iscalar; Litvect; Quadout;
     Reshape; Transpos;
     static int radices[9] = {24,60,60,10,10,10,2,2,2};
     static int values[9] = {1,2,3,1,7,6,1,0,1};
     static int dims[2] = {3,3};
     static int tran[2] = {2,1};
     #include "aplinit.h"

     endoper(
          quadout(
               decode(
                    iscalar(10),
                    litvect("1 7 7 6")
               )
          )
     ); /* --------------------------------> 1776 */
     endoper(
          quadout(
               decode(
                    reshape(
                         convect(dims,2,APLINT),
                         convect(radices,9,APLINT)
                    ),
                    transpos(
                         convect(tran,2,APLINT),
                         reshape(
                              convect(dims,2,APLINT),
                              convect(values,9,APLINT)
                         )
                    )
               )
          )
     ); /* ---------------------------> 3723 4026 3601
                                         123  176  101
                                          11   24    5 */
}