#define DIM "6"
#define N "7"
#define Q "(-i_*(x(1)*x(2)*x(3)-x(1)*x(4)*x(5))*[1/x](0)*[1/x](4))"

Local H0 =       - y*d + x0*d0;
Local H1 =       - 2 - x0*d0 + x1*d1 - x2*d2 - x3*d3 - x4*d4 - x5*d5;
Local H2 =       - 1 - x0*d0 - x1*d1 + x2*d2 - x3*d3;
Local H3 =       - x2*d2 + x3*d3 + x4*d4 - x5*d5;
Local H4 =       - x2*d2 + x3*d3 - x4*d4 + x5*d5;

Local   a1 =  - [1/y]*x2*x3*i_ + [1/y]*x4*x5*i_ - x0*d1;
Local   a2 =  - [1/y]*x1*x3*i_ - x0*d2;
Local   a3 =    x2*d4 + x5*d3;
Local   a4 =  - x2*d5 - x4*d3;
Local   a5 =    [1/y]*x1*x5*i_ - x0*d4;
Local   a6 =    [1/y]*x1*x4*i_ - x0*d5;
Local   a7 =  - [1/y]*x1*x2*i_ - x0*d3;

   Local b0 = y*d0;
   Local b1 = y*d1;
   Local b2 = y*d2;
   Local b3 = y*d3;
   Local b4 = y*d4;
   Local b5 = y*d5;

   Local g0 = i_*x0;
   Local g1 = i_*x1;
   Local g2 = i_*x2;
   Local g3 = i_*x3;
   Local g4 = i_*x4;
   Local g5 = i_*x5;

   Local om = i_*y;


Local am1 =      y*d2*d3*i_ - y*d4*d5*i_ + x1*d0;
Local am2 =      y*d1*d3*i_ + x2*d0;
Local am3 =       - x3*d5 - x4*d2;
Local am4 =             x3*d4 + x5*d2;
Local am5 =       - y*d1*d5*i_ + x4*d0;
Local am6 =       - y*d1*d4*i_ + x5*d0;
Local am7 =      y*d1*d2*i_ + x3*d0;

Local bm0 = [1/y]*[1/y]*x1*x2*x3*i_ - [1/y]*[1/y]*x1*x4*x5*i_ - x0*d;

Local bm1 =
      2*[1/y]*x1 + [1/y]*x1*x2*d2 + [1/y]*x1*x3*d3 + [1/y]*x1*x4*d4 + [1/y]*x1
      *x5*d5 - x0*d2*d3*i_ + x0*d4*d5*i_ + x1*d;

Local bm2 =
      [1/y]*x1*x2*d1 + [1/y]*x2 + [1/y]*x2*x3*d3 - [1/y]*x4*x5*d3 - x0*d1*d3*
      i_ + x2*d;

Local bm3 =
      [1/y]*x1*x3*d1 + [1/y]*x2*x3*d2 + [1/y]*x3 - [1/y]*x4*x5*d2 - x0*d1*d2*
      i_ + x3*d;

Local bm4 =
      [1/y]*x1*x4*d1 - [1/y]*x2*x3*d5 + [1/y]*x4 + [1/y]*x4*x5*d5 + x0*d1*d5*
      i_ + x4*d;

Local bm5 =
      [1/y]*x1*x5*d1 - [1/y]*x2*x3*d4 + [1/y]*x4*x5*d4 + [1/y]*x5 + x0*d1*d4*
      i_ + x5*d;

Local gm0 =
       - y*d0*d*i_ + y*d1*d2*d3 - y*d1*d4*d5 - x0*d0*d0*i_ - 4*d0*i_ - x1*d0*
      d1*i_ - x2*d0*d2*i_ - x3*d0*d3*i_ - x4*d0*d4*i_ - x5*d0*d5*i_;

Local gm1 =
      y*d1*d*i_ + x0*d0*d1*i_ + x1*d1*d1*i_ + 2*d1*i_ - x2*x3*[1/y]*d0 + x4*x5
      *[1/y]*d0;

Local gm2 =
      y*d2*d*i_ + x0*d0*d2*i_ - x1*x3*[1/y]*d0 + x2*d2*d2*i_ + 3*d2*i_ + x3*d4
      *d5*i_ + x4*d2*d4*i_ + x5*d2*d5*i_;

Local gm3 =
      y*d3*d*i_ + x0*d0*d3*i_ - x1*x2*[1/y]*d0 + x2*d4*d5*i_ + x3*d3*d3*i_ + 3
      *d3*i_ + x4*d3*d4*i_ + x5*d3*d5*i_;

Local gm4 =
      y*d4*d*i_ + x0*d0*d4*i_ + x1*x5*[1/y]*d0 + x2*d2*d4*i_ + x3*d3*d4*i_ + 
      x4*d4*d4*i_ + 3*d4*i_ + x5*d2*d3*i_;

Local gm5 =
      y*d5*d*i_ + x0*d0*d5*i_ + x1*x4*[1/y]*d0 + x2*d2*d5*i_ + x3*d3*d5*i_ + 
      x4*d2*d3*i_ + x5*d5*d5*i_ + 3*d5*i_;

Local  mom =
       - y*d*d*i_ - 2*[1/y]*i_ - [1/y]*[1/y]*x1*x2*x3*d0 + [1/y]*[1/y]*x1*x4*
      x5*d0 - 2*[1/y]*x1*d1*i_ - [1/y]*x1*x2*d1*d2*i_ - [1/y]*x1*x3*d1*d3*i_
       - [1/y]*x1*x4*d1*d4*i_ - [1/y]*x1*x5*d1*d5*i_ - [1/y]*x2*d2*i_ - [1/y]*
      x2*x3*d2*d3*i_ + [1/y]*x2*x3*d4*d5*i_ - [1/y]*x3*d3*i_ - [1/y]*x4*d4*i_
       + [1/y]*x4*x5*d2*d3*i_ - [1/y]*x4*x5*d4*d5*i_ - [1/y]*x5*d5*i_ - 4*d*i_
       - x0*d*d0*i_ - x0*d1*d2*d3 + x0*d1*d4*d5 - x1*d*d1*i_ - x2*d*d2*i_ - x3
      *d*d3*i_ - x4*d*d4*i_ - x5*d*d5*i_;