#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Indxsub; Innrprd; Iplus; Itimes;
     Litvect; Quadout; Reshape;
     int identity=0;
     #include "aplinit.h"

     endoper(
          quadout( /* -------------------------> 22 28 */
               innrprd(                       /* 49 64 */
                    iplus,
                    itimes,
                    &identity,
                    reshape(
                         litvect("2 3"),
                         indxsub(6)
                    ),
                    reshape(
                         litvect("3 2"),
                         indxsub(6)
                    )
               )
          )
     );
}