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

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

Local   a1 =       - [1/y]*x2*x3*i_ - x0*d1;
Local   a2 =       - [1/y]*x1*x3*i_ - x0*d2;
Local   a3 =       - [1/y]*x1*x2*i_ - x0*d3;

   Local b0 = y*d0;
   Local b1 = y*d1;
   Local b2 = y*d2;
   Local b3 = y*d3;

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

   Local om = i_*y;

Local   am1 =y*d2*d3*i_ + x1*d0;
Local   am2 =y*d1*d3*i_ + x2*d0;
Local   am3 =y*d1*d2*i_ + x3*d0;

Local   bm0 =      [1/y]*[1/y]*x1*x2*x3*i_ - x0*d;
Local   bm1 =
      [1/y]*x1 + [1/y]*x1*x2*d2 + [1/y]*x1*x3*d3 - x0*d2*d3*i_ + x1*d;
Local   bm2 =
      [1/y]*x1*x2*d1 + [1/y]*x2 + [1/y]*x2*x3*d3 - x0*d1*d3*i_ + x2*d;
Local   bm3 =
      [1/y]*x1*x3*d1 + [1/y]*x2*x3*d2 + [1/y]*x3 - x0*d1*d2*i_ + x3*d;

Local   gm0 =
       - y*d0*d*i_ + y*d1*d2*d3 - x0*d0*d0*i_ - 3*d0*i_ - x1*d0*d1*i_ - x2*d0*
      d2*i_ - x3*d0*d3*i_;
Local   gm1 =
      y*d1*d*i_ + x0*d0*d1*i_ + x1*d1*d1*i_ + 2*d1*i_ - x2*x3*[1/y]*d0;
Local   gm2 =
      y*d2*d*i_ + x0*d0*d2*i_ - x1*x3*[1/y]*d0 + x2*d2*d2*i_ + 2*d2*i_;
Local   gm3 =
      y*d3*d*i_ + x0*d0*d3*i_ - x1*x2*[1/y]*d0 + x3*d3*d3*i_ + 2*d3*i_;

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