#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Indxsub; Innrprdp; Litvect; Plusx;
     Quadout; Reshape; Timesx;
     double identity[]={0.0,0.0};
     #include "aplinit.h"

     endoper(
          quadout( /* ---------------------> 0j17 -6j20 */
               innrprdp(                  /* 6j20 0j26  */
                    plusx,
                    timesx,
                    identity,
                    reshape(
                         litvect("2 3"),
                         litvect("1j1 1j2 1j3 2j1 2j2 2j3")
                    ),
                    reshape(
                         litvect("3 2"),
                         litvect("1j1 1j2 2j1 2j2 3j1 3j2")
                    )
               )
          )
     );
}