#define DIM "4"
#define Q "0"

   Local H0 =      x0*d;
   Local H1 =       - x0*d0 + x1*d1;
   Local H2 =       - x1*d1 + x2*d2;
   Local H3 =       - x2*d2 + x3*d3;

Local   a1 =       - x0*d1;
Local   a2 =      x1*d2;
Local   a3 =      x2*d3;
Local   a4 =       - x0*d2;
Local   a5 =      x1*d3;
Local   a6 =       - x0*d3;

Local b0=y*d;
Local b1=y*d1;
Local b2=y*d1;
Local b3=y*d1;

Local   g0 =      x0*i_;
Local   g1 =      x1*i_;
Local   g2 =      x2*i_;
Local   g3 =      x3*i_;

Local   om =      y*i_;

Local   gm0 =
       - y*d0*d*i_ - x0*d0*d0*i_ - 3*d0*i_ - x1*d0*d1*i_ - x2*d0*d2*i_ - x3*d0
      *d3*i_;

Local   am1 =      x1*d0;
Local   am2 =       - x2*d1;
Local   am3 =       - x3*d2;
Local   am4 =      x2*d0;
Local   am5 =       - x3*d1;
Local   am6 =      x3*d0;

Local   bm0 =       - x0*d;
Local   bm1 =      x1*d;
Local   bm2 =      x2*d;
Local   bm3 =      x3*d;

Local   gm1 =
      y*d1*d*i_ + x0*d0*d1*i_ + x1*d1*d1*i_ + 3*d1*i_ + x2*d1*d2*i_ + x3*d1*d3
      *i_;

Local   gm2 =
      y*d2*d*i_ + x0*d0*d2*i_ + x1*d1*d2*i_ + x2*d2*d2*i_ + 3*d2*i_ + x3*d2*d3
      *i_;

Local   gm3 =
      y*d3*d*i_ + x0*d0*d3*i_ + x1*d1*d3*i_ + x2*d2*d3*i_ + x3*d3*d3*i_ + 3*d3
      *i_;

Local   mom =
       - y*d*d*i_ - 3*d*i_ - x0*d*d0*i_ - x1*d*d1*i_ - x2*d*d2*i_ - x3*d*d3*i_
      ;