* this is
*       L Cm1234 =
*        + Tm(1,2,3,4,m)
*        + i_*k2(m)*T(1,2,[p],3,[c],4)*Is(1,2)
*        + i_*k3(m)*T(1,3,[p],2,[c],4)*Is(1,3)
*        + i_*k4(m)*T(1,4,[p],3,[c],2)*Is(1,4)
*        ;
* with <la^3 th^5> = 1

  L   Cm1234 =
       - 1/320*gmn1(k2,k2)*k1(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k2)*k1(m)*k1.e3*e2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k1.e4*e2.e3
       - 1/320*gmn1(k2,k2)*k1(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/320*gmn1(k2,k2)*k1(m)*k2.e3*e2.e4
       + 1/320*gmn1(k2,k2)*k1(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k2)*k1(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k2.e4*e2.e3
       - 1/320*gmn1(k2,k2)*k1(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k3.e2*e3.e4
       - 1/320*gmn1(k2,k2)*k1(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k1(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k2)*k2(m)*k1.e3*e2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k1.e3*e2.e4*s12^-1*s23
       + 1/160*gmn1(k2,k2)*k2(m)*k1.e4*e2.e3
       - 1/640*gmn1(k2,k2)*k2(m)*k1.e4*e2.e3*ap^-1*s12^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k2(m)*k1.e4*e2.e3*s12^-1*s23
       + 1/320*gmn1(k2,k2)*k2(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/160*gmn1(k2,k2)*k2(m)*k2.e3*e2.e4
       + 1/640*gmn1(k2,k2)*k2(m)*k2.e3*e2.e4*ap^-1*s12^-1
       + 1/320*gmn1(k2,k2)*k2(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k2.e3*e2.e4*s12^-1*s23
       - 1/320*gmn1(k2,k2)*k2(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/160*gmn1(k2,k2)*k2(m)*k2.e4*e2.e3
       - 1/640*gmn1(k2,k2)*k2(m)*k2.e4*e2.e3*ap^-1*s12^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k2(m)*k2.e4*e2.e3*s12^-1*s23
       + 1/320*gmn1(k2,k2)*k2(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/160*gmn1(k2,k2)*k2(m)*k3.e2*e3.e4
       - 1/640*gmn1(k2,k2)*k2(m)*k3.e2*e3.e4*ap^-1*s12^-1
       - 1/320*gmn1(k2,k2)*k2(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k2(m)*k3.e2*e3.e4*s12^-1*s23
       + 1/320*gmn1(k2,k2)*k2(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k2,k2)*k3(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k2)*k3(m)*k1.e3*e2.e4*ap^-1*s13^-1
       + 1/640*gmn1(k2,k2)*k3(m)*k1.e3*e2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k1.e4*e2.e3
       - 1/320*gmn1(k2,k2)*k3(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/320*gmn1(k2,k2)*k3(m)*k2.e3*e2.e4
       + 1/320*gmn1(k2,k2)*k3(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k2)*k3(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k2.e4*e2.e3
       - 1/320*gmn1(k2,k2)*k3(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k3.e2*e3.e4
       - 1/320*gmn1(k2,k2)*k3(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k2)*k3(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/640*gmn1(k2,k2)*e3(m)*e2.e4*ap^-1
       - 1/320*gmn1(k2,k3)*k1(m)*k1.e2*e3.e4
       + 1/640*gmn1(k2,k3)*k1(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k3)*k1(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k3)*k1(m)*k1.e3*e2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k3)*k1(m)*k1.e4*e2.e3
       - 1/640*gmn1(k2,k3)*k1(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k3)*k1(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/320*gmn1(k2,k3)*k1(m)*k2.e3*e2.e4
       + 1/320*gmn1(k2,k3)*k1(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/160*gmn1(k2,k3)*k1(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k2,k3)*k1(m)*k2.e4*e2.e3
       - 1/320*gmn1(k2,k3)*k1(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k1(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k2,k3)*k1(m)*k3.e2*e3.e4
       - 1/320*gmn1(k2,k3)*k1(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k1(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k2,k3)*k2(m)*k1.e2*e3.e4
       + 1/640*gmn1(k2,k3)*k2(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k3)*k2(m)*k1.e2*e3.e4*s12^-1*s23
       - 1/320*gmn1(k2,k3)*k2(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k3)*k2(m)*k1.e3*e2.e4*ap^-1*s12^-1
       + 1/640*gmn1(k2,k3)*k2(m)*k1.e3*e2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,k3)*k2(m)*k1.e4*e2.e3
       - 1/640*gmn1(k2,k3)*k2(m)*k1.e4*e2.e3*ap^-1*s12^-1
       - 1/640*gmn1(k2,k3)*k2(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k3)*k2(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/160*gmn1(k2,k3)*k2(m)*k2.e3*e2.e4
       + 1/320*gmn1(k2,k3)*k2(m)*k2.e3*e2.e4*ap^-1*s12^-1
       + 1/320*gmn1(k2,k3)*k2(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/160*gmn1(k2,k3)*k2(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/160*gmn1(k2,k3)*k2(m)*k2.e4*e2.e3
       - 1/320*gmn1(k2,k3)*k2(m)*k2.e4*e2.e3*ap^-1*s12^-1
       - 1/320*gmn1(k2,k3)*k2(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k2(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/160*gmn1(k2,k3)*k2(m)*k3.e2*e3.e4
       - 1/320*gmn1(k2,k3)*k2(m)*k3.e2*e3.e4*ap^-1*s12^-1
       - 1/320*gmn1(k2,k3)*k2(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k2(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k1.e2*e3.e4
       + 1/640*gmn1(k2,k3)*k3(m)*k1.e2*e3.e4*ap^-1*s13^-1
       + 1/640*gmn1(k2,k3)*k3(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k1.e3*e2.e4
       + 1/640*gmn1(k2,k3)*k3(m)*k1.e3*e2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k1.e3*e2.e4*s13^-1*s23
       + 1/640*gmn1(k2,k3)*k3(m)*k1.e4*e2.e3*ap^-1*s13^-1
       - 1/640*gmn1(k2,k3)*k3(m)*k1.e4*e2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,k3)*k3(m)*k1.e4*e2.e3*s12*s14^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k2.e3*e2.e4*ap^-1*s13^-1
       + 1/320*gmn1(k2,k3)*k3(m)*k2.e3*e2.e4*ap^-1*s14^-1
       - 1/160*gmn1(k2,k3)*k3(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k2,k3)*k3(m)*k2.e4*e2.e3*ap^-1*s13^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k2.e4*e2.e3*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k3(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k2,k3)*k3(m)*k3.e2*e3.e4*ap^-1*s13^-1
       - 1/320*gmn1(k2,k3)*k3(m)*k3.e2*e3.e4*ap^-1*s14^-1
       + 1/160*gmn1(k2,k3)*k3(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/640*gmn1(k2,k3)*e2(m)*e3.e4*ap^-1
       - 1/640*gmn1(k2,k3)*e3(m)*e2.e4*ap^-1
       + 1/640*gmn1(k2,k3)*e4(m)*e2.e3*ap^-1
       + 1/320*gmn1(k2,e2)*k1(m)*k1.e3*k2.e4
       - 1/640*gmn1(k2,e2)*k1(m)*k1.e3*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e2)*k1(m)*k1.e4*k2.e3
       + 1/320*gmn1(k2,e2)*k1(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k2,e2)*k1(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/640*gmn1(k2,e2)*k1(m)*e3.e4*ap^-2*s14^-1
       + 1/320*gmn1(k2,e2)*k1(m)*e3.e4*ap^-1
       + 1/640*gmn1(k2,e2)*k1(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e2)*k1(m)*e3.e4*s23
       - 1/320*gmn1(k2,e2)*k1(m)*e3.e4*s12
       + 1/320*gmn1(k2,e2)*k2(m)*k1.e3*k2.e4
       - 1/640*gmn1(k2,e2)*k2(m)*k1.e3*k2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k2,e2)*k2(m)*k1.e3*k2.e4*s12^-1*s23
       - 1/160*gmn1(k2,e2)*k2(m)*k1.e4*k2.e3
       + 1/640*gmn1(k2,e2)*k2(m)*k1.e4*k2.e3*ap^-1*s12^-1
       + 1/320*gmn1(k2,e2)*k2(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k2,e2)*k2(m)*k1.e4*k2.e3*s12^-1*s23
       - 1/320*gmn1(k2,e2)*k2(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/640*gmn1(k2,e2)*k2(m)*e3.e4*ap^-2*s14^-1
       + 1/640*gmn1(k2,e2)*k2(m)*e3.e4*ap^-1*s12^-1*s23
       + 1/320*gmn1(k2,e2)*k2(m)*e3.e4*ap^-1
       + 1/640*gmn1(k2,e2)*k2(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e2)*k2(m)*e3.e4*s12^-1*s23^2
       - 1/160*gmn1(k2,e2)*k2(m)*e3.e4*s23
       - 1/320*gmn1(k2,e2)*k2(m)*e3.e4*s12
       + 1/320*gmn1(k2,e2)*k3(m)*k1.e3*k2.e4
       - 1/640*gmn1(k2,e2)*k3(m)*k1.e3*k2.e4*ap^-1*s13^-1
       - 1/640*gmn1(k2,e2)*k3(m)*k1.e3*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e2)*k3(m)*k1.e4*k2.e3
       + 1/320*gmn1(k2,e2)*k3(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k2,e2)*k3(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/640*gmn1(k2,e2)*k3(m)*e3.e4*ap^-2*s14^-1
       + 1/320*gmn1(k2,e2)*k3(m)*e3.e4*ap^-1
       + 1/640*gmn1(k2,e2)*k3(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e2)*k3(m)*e3.e4*s23
       - 1/320*gmn1(k2,e2)*k3(m)*e3.e4*s12
       + 1/640*gmn1(k2,e2)*e3(m)*k2.e4*ap^-1
       - 1/320*gmn1(k2,e3)*k1(m)*k1.e2*k1.e4
       + 1/640*gmn1(k2,e3)*k1(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e3)*k1(m)*k1.e2*k2.e4
       + 1/640*gmn1(k2,e3)*k1(m)*k1.e2*k2.e4*ap^-1*s14^-1
       - 1/640*gmn1(k2,e3)*k1(m)*k1.e4*k3.e2*ap^-1*s14^-1
       + 1/320*gmn1(k2,e3)*k1(m)*k1.e4*k3.e2*s12*s14^-1
       - 1/640*gmn1(k2,e3)*k1(m)*e2.e4*ap^-1*s12*s14^-1
       + 1/320*gmn1(k2,e3)*k1(m)*e2.e4*s12
       - 1/320*gmn1(k2,e3)*k2(m)*k1.e2*k1.e4
       + 1/640*gmn1(k2,e3)*k2(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e3)*k2(m)*k1.e2*k1.e4*s12^-1*s23
       - 1/320*gmn1(k2,e3)*k2(m)*k1.e2*k2.e4
       + 1/640*gmn1(k2,e3)*k2(m)*k1.e2*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e3)*k2(m)*k1.e2*k2.e4*s12^-1*s23
       + 1/320*gmn1(k2,e3)*k2(m)*k1.e4*k3.e2
       - 1/640*gmn1(k2,e3)*k2(m)*k1.e4*k3.e2*ap^-1*s12^-1
       - 1/640*gmn1(k2,e3)*k2(m)*k1.e4*k3.e2*ap^-1*s14^-1
       + 1/320*gmn1(k2,e3)*k2(m)*k1.e4*k3.e2*s12*s14^-1
       - 1/1280*gmn1(k2,e3)*k2(m)*e2.e4*ap^-2*s12^-1
       - 1/640*gmn1(k2,e3)*k2(m)*e2.e4*ap^-1*s12^-1*s23
       + 1/640*gmn1(k2,e3)*k2(m)*e2.e4*ap^-1
       - 1/640*gmn1(k2,e3)*k2(m)*e2.e4*ap^-1*s12*s14^-1
       + 1/320*gmn1(k2,e3)*k2(m)*e2.e4*s23
       + 1/320*gmn1(k2,e3)*k2(m)*e2.e4*s12
       - 1/320*gmn1(k2,e3)*k3(m)*k1.e2*k1.e4
       + 1/640*gmn1(k2,e3)*k3(m)*k1.e2*k1.e4*ap^-1*s13^-1
       + 1/640*gmn1(k2,e3)*k3(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k2,e3)*k3(m)*k1.e2*k2.e4
       + 1/640*gmn1(k2,e3)*k3(m)*k1.e2*k2.e4*ap^-1*s13^-1
       + 1/640*gmn1(k2,e3)*k3(m)*k1.e2*k2.e4*ap^-1*s14^-1
       + 1/640*gmn1(k2,e3)*k3(m)*k1.e4*k3.e2*ap^-1*s13^-1
       - 1/640*gmn1(k2,e3)*k3(m)*k1.e4*k3.e2*ap^-1*s14^-1
       + 1/320*gmn1(k2,e3)*k3(m)*k1.e4*k3.e2*s12*s14^-1
       + 1/320*gmn1(k2,e3)*k3(m)*e2.e4*ap^-1*s13^-1*s23
       + 1/640*gmn1(k2,e3)*k3(m)*e2.e4*ap^-1
       - 1/640*gmn1(k2,e3)*k3(m)*e2.e4*ap^-1*s12*s14^-1
       + 1/320*gmn1(k2,e3)*k3(m)*e2.e4*s12
       - 1/640*gmn1(k2,e3)*e2(m)*k1.e4*ap^-1
       - 1/640*gmn1(k2,e3)*e2(m)*k2.e4*ap^-1
       - 1/640*gmn1(k2,e3)*e4(m)*k3.e2*ap^-1
       + 1/320*gmn1(k2,e4)*k1(m)*k1.e2*k1.e3
       - 1/640*gmn1(k2,e4)*k1(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k1(m)*k1.e2*k2.e3
       - 1/320*gmn1(k2,e4)*k1(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k1(m)*k1.e2*k2.e3*s12*s14^-1
       + 1/640*gmn1(k2,e4)*k1(m)*k1.e3*k3.e2*ap^-1*s14^-1
       - 1/320*gmn1(k2,e4)*k1(m)*k1.e3*k3.e2*s12*s14^-1
       - 1/640*gmn1(k2,e4)*k1(m)*e2.e3*ap^-2*s14^-1
       + 1/640*gmn1(k2,e4)*k1(m)*e2.e3*ap^-1
       + 3/640*gmn1(k2,e4)*k1(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e4)*k1(m)*e2.e3*s12
       - 1/320*gmn1(k2,e4)*k1(m)*e2.e3*s12^2*s14^-1
       + 1/320*gmn1(k2,e4)*k2(m)*k1.e2*k1.e3
       - 1/640*gmn1(k2,e4)*k2(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k2(m)*k1.e2*k1.e3*s12^-1*s23
       + 1/160*gmn1(k2,e4)*k2(m)*k1.e2*k2.e3
       - 1/640*gmn1(k2,e4)*k2(m)*k1.e2*k2.e3*ap^-1*s12^-1
       - 1/320*gmn1(k2,e4)*k2(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k2(m)*k1.e2*k2.e3*s12^-1*s23
       + 1/320*gmn1(k2,e4)*k2(m)*k1.e2*k2.e3*s12*s14^-1
       - 1/320*gmn1(k2,e4)*k2(m)*k1.e3*k3.e2
       + 1/640*gmn1(k2,e4)*k2(m)*k1.e3*k3.e2*ap^-1*s12^-1
       + 1/640*gmn1(k2,e4)*k2(m)*k1.e3*k3.e2*ap^-1*s14^-1
       - 1/320*gmn1(k2,e4)*k2(m)*k1.e3*k3.e2*s12*s14^-1
       - 1/1280*gmn1(k2,e4)*k2(m)*e2.e3*ap^-2*s12^-1
       - 1/640*gmn1(k2,e4)*k2(m)*e2.e3*ap^-2*s14^-1
       + 1/640*gmn1(k2,e4)*k2(m)*e2.e3*ap^-1*s12^-1*s23
       + 3/640*gmn1(k2,e4)*k2(m)*e2.e3*ap^-1
       + 3/640*gmn1(k2,e4)*k2(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e4)*k2(m)*e2.e3*s23
       - 1/160*gmn1(k2,e4)*k2(m)*e2.e3*s12
       - 1/320*gmn1(k2,e4)*k2(m)*e2.e3*s12^2*s14^-1
       + 1/320*gmn1(k2,e4)*k3(m)*k1.e2*k1.e3
       - 1/640*gmn1(k2,e4)*k3(m)*k1.e2*k1.e3*ap^-1*s13^-1
       - 1/640*gmn1(k2,e4)*k3(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k3(m)*k1.e2*k2.e3
       - 1/320*gmn1(k2,e4)*k3(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k2,e4)*k3(m)*k1.e2*k2.e3*s12*s14^-1
       - 1/640*gmn1(k2,e4)*k3(m)*k1.e3*k3.e2*ap^-1*s13^-1
       + 1/640*gmn1(k2,e4)*k3(m)*k1.e3*k3.e2*ap^-1*s14^-1
       - 1/320*gmn1(k2,e4)*k3(m)*k1.e3*k3.e2*s12*s14^-1
       - 1/640*gmn1(k2,e4)*k3(m)*e2.e3*ap^-2*s14^-1
       + 1/640*gmn1(k2,e4)*k3(m)*e2.e3*ap^-1
       + 3/640*gmn1(k2,e4)*k3(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k2,e4)*k3(m)*e2.e3*s12
       - 1/320*gmn1(k2,e4)*k3(m)*e2.e3*s12^2*s14^-1
       + 1/640*gmn1(k2,e4)*e3(m)*k1.e2*ap^-1
       + 1/640*gmn1(k2,e4)*e3(m)*k3.e2*ap^-1
       - 1/320*gmn1(k3,k3)*k1(m)*k1.e2*e3.e4
       + 1/640*gmn1(k3,k3)*k1(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,k3)*k1(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k3,k3)*k1(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k3,k3)*k1(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k3,k3)*k2(m)*k1.e2*e3.e4
       + 1/640*gmn1(k3,k3)*k2(m)*k1.e2*e3.e4*ap^-1*s12^-1
       + 1/640*gmn1(k3,k3)*k2(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,k3)*k2(m)*k2.e3*e2.e4*s12*s14^-1
       + 1/320*gmn1(k3,k3)*k2(m)*k2.e4*e2.e3*s12*s14^-1
       + 1/320*gmn1(k3,k3)*k2(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k1.e2*e3.e4
       + 1/640*gmn1(k3,k3)*k3(m)*k1.e2*e3.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k1.e2*e3.e4*s13^-1*s23
       + 1/320*gmn1(k3,k3)*k3(m)*k2.e3*e2.e4
       - 1/640*gmn1(k3,k3)*k3(m)*k2.e3*e2.e4*ap^-1*s13^-1
       + 1/320*gmn1(k3,k3)*k3(m)*k2.e3*e2.e4*s13^-1*s23
       - 1/320*gmn1(k3,k3)*k3(m)*k2.e3*e2.e4*s12*s14^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k2.e4*e2.e3
       + 1/640*gmn1(k3,k3)*k3(m)*k2.e4*e2.e3*ap^-1*s13^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k2.e4*e2.e3*s13^-1*s23
       + 1/320*gmn1(k3,k3)*k3(m)*k2.e4*e2.e3*s12*s14^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k3.e2*e3.e4
       + 1/640*gmn1(k3,k3)*k3(m)*k3.e2*e3.e4*ap^-1*s13^-1
       - 1/320*gmn1(k3,k3)*k3(m)*k3.e2*e3.e4*s13^-1*s23
       + 1/320*gmn1(k3,k3)*k3(m)*k3.e2*e3.e4*s12*s14^-1
       - 1/640*gmn1(k3,k3)*e2(m)*e3.e4*ap^-1
       + 1/320*gmn1(k3,e2)*k1(m)*k1.e3*k2.e4
       - 1/640*gmn1(k3,e2)*k1(m)*k1.e3*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e2)*k1(m)*k1.e4*k2.e3
       + 1/640*gmn1(k3,e2)*k1(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k3,e2)*k1(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/640*gmn1(k3,e2)*k1(m)*e3.e4*ap^-2*s14^-1
       + 1/320*gmn1(k3,e2)*k1(m)*e3.e4*ap^-1
       + 1/640*gmn1(k3,e2)*k1(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e2)*k1(m)*e3.e4*s23
       - 1/320*gmn1(k3,e2)*k1(m)*e3.e4*s12
       + 1/320*gmn1(k3,e2)*k2(m)*k1.e3*k2.e4
       - 1/640*gmn1(k3,e2)*k2(m)*k1.e3*k2.e4*ap^-1*s12^-1
       - 1/640*gmn1(k3,e2)*k2(m)*k1.e3*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e2)*k2(m)*k1.e4*k2.e3
       + 1/640*gmn1(k3,e2)*k2(m)*k1.e4*k2.e3*ap^-1*s12^-1
       + 1/640*gmn1(k3,e2)*k2(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k3,e2)*k2(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/640*gmn1(k3,e2)*k2(m)*e3.e4*ap^-2*s14^-1
       + 1/320*gmn1(k3,e2)*k2(m)*e3.e4*ap^-1*s12^-1*s23
       + 3/640*gmn1(k3,e2)*k2(m)*e3.e4*ap^-1
       + 1/640*gmn1(k3,e2)*k2(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e2)*k2(m)*e3.e4*s23
       - 1/320*gmn1(k3,e2)*k2(m)*e3.e4*s12
       + 1/320*gmn1(k3,e2)*k3(m)*k1.e3*k2.e4
       - 1/640*gmn1(k3,e2)*k3(m)*k1.e3*k2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k3,e2)*k3(m)*k1.e3*k2.e4*s13^-1*s23
       - 1/640*gmn1(k3,e2)*k3(m)*k1.e4*k2.e3*ap^-1*s13^-1
       + 1/640*gmn1(k3,e2)*k3(m)*k1.e4*k2.e3*ap^-1*s14^-1
       - 1/320*gmn1(k3,e2)*k3(m)*k1.e4*k2.e3*s12*s14^-1
       - 1/1280*gmn1(k3,e2)*k3(m)*e3.e4*ap^-2*s13^-1
       - 1/640*gmn1(k3,e2)*k3(m)*e3.e4*ap^-2*s14^-1
       - 1/640*gmn1(k3,e2)*k3(m)*e3.e4*ap^-1*s13^-1*s23
       + 3/640*gmn1(k3,e2)*k3(m)*e3.e4*ap^-1
       + 1/640*gmn1(k3,e2)*k3(m)*e3.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e2)*k3(m)*e3.e4*s12
       + 1/640*gmn1(k3,e2)*e3(m)*k2.e4*ap^-1
       - 1/640*gmn1(k3,e2)*e4(m)*k2.e3*ap^-1
       - 1/320*gmn1(k3,e3)*k1(m)*k1.e2*k1.e4
       + 1/640*gmn1(k3,e3)*k1(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e3)*k1(m)*k1.e2*k2.e4
       + 1/640*gmn1(k3,e3)*k1(m)*k1.e2*k2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k3,e3)*k1(m)*k1.e4*k3.e2*s12*s14^-1
       - 1/640*gmn1(k3,e3)*k1(m)*e2.e4*ap^-1*s12*s14^-1
       + 1/320*gmn1(k3,e3)*k1(m)*e2.e4*s12
       - 1/320*gmn1(k3,e3)*k2(m)*k1.e2*k1.e4
       + 1/640*gmn1(k3,e3)*k2(m)*k1.e2*k1.e4*ap^-1*s12^-1
       + 1/640*gmn1(k3,e3)*k2(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e3)*k2(m)*k1.e2*k2.e4
       + 1/640*gmn1(k3,e3)*k2(m)*k1.e2*k2.e4*ap^-1*s12^-1
       + 1/640*gmn1(k3,e3)*k2(m)*k1.e2*k2.e4*ap^-1*s14^-1
       + 1/320*gmn1(k3,e3)*k2(m)*k1.e4*k3.e2*s12*s14^-1
       - 1/640*gmn1(k3,e3)*k2(m)*e2.e4*ap^-1*s12*s14^-1
       + 1/320*gmn1(k3,e3)*k2(m)*e2.e4*s12
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e2*k1.e4
       + 1/640*gmn1(k3,e3)*k3(m)*k1.e2*k1.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e2*k1.e4*s13^-1*s23
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e2*k2.e4
       + 1/640*gmn1(k3,e3)*k3(m)*k1.e2*k2.e4*ap^-1*s14^-1
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e2*k2.e4*s13^-1*s23
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e4*k3.e2
       + 1/640*gmn1(k3,e3)*k3(m)*k1.e4*k3.e2*ap^-1*s13^-1
       - 1/320*gmn1(k3,e3)*k3(m)*k1.e4*k3.e2*s13^-1*s23
       + 1/320*gmn1(k3,e3)*k3(m)*k1.e4*k3.e2*s12*s14^-1
       + 1/640*gmn1(k3,e3)*k3(m)*e2.e4*ap^-1*s13^-1*s23
       - 1/640*gmn1(k3,e3)*k3(m)*e2.e4*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e3)*k3(m)*e2.e4*s13^-1*s23^2
       - 1/320*gmn1(k3,e3)*k3(m)*e2.e4*s23
       + 1/320*gmn1(k3,e3)*k3(m)*e2.e4*s12
       - 1/640*gmn1(k3,e3)*e2(m)*k1.e4*ap^-1
       - 1/640*gmn1(k3,e3)*e2(m)*k2.e4*ap^-1
       + 1/320*gmn1(k3,e4)*k1(m)*k1.e2*k1.e3
       - 1/640*gmn1(k3,e4)*k1(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k1(m)*k1.e2*k2.e3
       - 1/640*gmn1(k3,e4)*k1(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k1(m)*k1.e2*k2.e3*s12*s14^-1
       - 1/320*gmn1(k3,e4)*k1(m)*k1.e3*k3.e2*s12*s14^-1
       + 1/640*gmn1(k3,e4)*k1(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e4)*k1(m)*e2.e3*s12
       - 1/320*gmn1(k3,e4)*k1(m)*e2.e3*s12^2*s14^-1
       + 1/320*gmn1(k3,e4)*k2(m)*k1.e2*k1.e3
       - 1/640*gmn1(k3,e4)*k2(m)*k1.e2*k1.e3*ap^-1*s12^-1
       - 1/640*gmn1(k3,e4)*k2(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k2(m)*k1.e2*k2.e3
       - 1/640*gmn1(k3,e4)*k2(m)*k1.e2*k2.e3*ap^-1*s12^-1
       - 1/640*gmn1(k3,e4)*k2(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k2(m)*k1.e2*k2.e3*s12*s14^-1
       - 1/320*gmn1(k3,e4)*k2(m)*k1.e3*k3.e2*s12*s14^-1
       + 1/640*gmn1(k3,e4)*k2(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e4)*k2(m)*e2.e3*s12
       - 1/320*gmn1(k3,e4)*k2(m)*e2.e3*s12^2*s14^-1
       + 1/320*gmn1(k3,e4)*k3(m)*k1.e2*k1.e3
       - 1/640*gmn1(k3,e4)*k3(m)*k1.e2*k1.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k3(m)*k1.e2*k1.e3*s13^-1*s23
       + 1/640*gmn1(k3,e4)*k3(m)*k1.e2*k2.e3*ap^-1*s13^-1
       - 1/640*gmn1(k3,e4)*k3(m)*k1.e2*k2.e3*ap^-1*s14^-1
       + 1/320*gmn1(k3,e4)*k3(m)*k1.e2*k2.e3*s12*s14^-1
       + 1/320*gmn1(k3,e4)*k3(m)*k1.e3*k3.e2
       - 1/640*gmn1(k3,e4)*k3(m)*k1.e3*k3.e2*ap^-1*s13^-1
       + 1/320*gmn1(k3,e4)*k3(m)*k1.e3*k3.e2*s13^-1*s23
       - 1/320*gmn1(k3,e4)*k3(m)*k1.e3*k3.e2*s12*s14^-1
       - 1/1280*gmn1(k3,e4)*k3(m)*e2.e3*ap^-2*s13^-1
       + 1/640*gmn1(k3,e4)*k3(m)*e2.e3*ap^-1*s13^-1*s23
       + 1/640*gmn1(k3,e4)*k3(m)*e2.e3*ap^-1
       + 1/640*gmn1(k3,e4)*k3(m)*e2.e3*ap^-1*s12*s14^-1
       - 1/320*gmn1(k3,e4)*k3(m)*e2.e3*s12^2*s14^-1
       + 1/640*gmn1(k3,e4)*e2(m)*k1.e3*ap^-1
       + 1/640*gmn1(k3,e4)*e2(m)*k2.e3*ap^-1
       - 1/1280*gmn1(e2,e3)*k1(m)*k1.e4*ap^-2*s14^-1
       + 1/640*gmn1(e2,e3)*k1(m)*k1.e4*ap^-1
       - 1/1280*gmn1(e2,e3)*k2(m)*k1.e4*ap^-2*s14^-1
       + 1/640*gmn1(e2,e3)*k2(m)*k1.e4*ap^-1*s12^-1*s23
       + 1/320*gmn1(e2,e3)*k2(m)*k1.e4*ap^-1
       + 1/1280*gmn1(e2,e3)*k2(m)*k2.e4*ap^-2*s12^-1
       + 1/640*gmn1(e2,e3)*k2(m)*k2.e4*ap^-1*s12^-1*s23
       - 1/1280*gmn1(e2,e3)*k3(m)*k1.e4*ap^-2*s13^-1
       - 1/1280*gmn1(e2,e3)*k3(m)*k1.e4*ap^-2*s14^-1
       + 1/320*gmn1(e2,e3)*k3(m)*k1.e4*ap^-1
       - 1/1280*gmn1(e2,e3)*k3(m)*k2.e4*ap^-2*s13^-1
       - 1/640*gmn1(e2,e3)*k3(m)*k2.e4*ap^-1*s13^-1*s23
       + 1/640*gmn1(e2,e3)*e4(m)*ap^-1*s23
       + 1/1280*gmn1(e2,e4)*k1(m)*k1.e3*ap^-2*s14^-1
       - 1/640*gmn1(e2,e4)*k1(m)*k1.e3*ap^-1
       + 1/640*gmn1(e2,e4)*k1(m)*k2.e3*ap^-2*s14^-1
       - 1/640*gmn1(e2,e4)*k1(m)*k2.e3*ap^-1
       - 1/640*gmn1(e2,e4)*k1(m)*k2.e3*ap^-1*s12*s14^-1
       + 1/1280*gmn1(e2,e4)*k2(m)*k1.e3*ap^-2*s14^-1
       - 1/640*gmn1(e2,e4)*k2(m)*k1.e3*ap^-1*s12^-1*s23
       - 1/640*gmn1(e2,e4)*k2(m)*k1.e3*ap^-1
       + 1/1280*gmn1(e2,e4)*k2(m)*k2.e3*ap^-2*s12^-1
       + 1/640*gmn1(e2,e4)*k2(m)*k2.e3*ap^-2*s14^-1
       - 1/640*gmn1(e2,e4)*k2(m)*k2.e3*ap^-1*s12^-1*s23
       - 1/320*gmn1(e2,e4)*k2(m)*k2.e3*ap^-1
       - 1/640*gmn1(e2,e4)*k2(m)*k2.e3*ap^-1*s12*s14^-1
       + 1/1280*gmn1(e2,e4)*k3(m)*k1.e3*ap^-2*s13^-1
       + 1/1280*gmn1(e2,e4)*k3(m)*k1.e3*ap^-2*s14^-1
       - 1/320*gmn1(e2,e4)*k3(m)*k1.e3*ap^-1
       + 1/640*gmn1(e2,e4)*k3(m)*k2.e3*ap^-2*s14^-1
       - 1/640*gmn1(e2,e4)*k3(m)*k2.e3*ap^-1
       - 1/640*gmn1(e2,e4)*k3(m)*k2.e3*ap^-1*s12*s14^-1
       - 1/640*gmn1(e2,e4)*e3(m)*ap^-1*s23
       - 1/640*gmn1(e2,e4)*e3(m)*ap^-1*s12
       + 1/1280*gmn1(e3,e4)*k1(m)*k1.e2*ap^-2*s14^-1
       - 1/640*gmn1(e3,e4)*k1(m)*k1.e2*ap^-1
       + 1/640*gmn1(e3,e4)*k1(m)*k3.e2*ap^-1*s12*s14^-1
       + 1/1280*gmn1(e3,e4)*k2(m)*k1.e2*ap^-2*s12^-1
       + 1/1280*gmn1(e3,e4)*k2(m)*k1.e2*ap^-2*s14^-1
       - 1/320*gmn1(e3,e4)*k2(m)*k1.e2*ap^-1
       + 1/640*gmn1(e3,e4)*k2(m)*k3.e2*ap^-1*s12*s14^-1
       + 1/1280*gmn1(e3,e4)*k3(m)*k1.e2*ap^-2*s14^-1
       - 1/640*gmn1(e3,e4)*k3(m)*k1.e2*ap^-1*s13^-1*s23
       - 1/640*gmn1(e3,e4)*k3(m)*k1.e2*ap^-1
       + 1/1280*gmn1(e3,e4)*k3(m)*k3.e2*ap^-2*s13^-1
       - 1/640*gmn1(e3,e4)*k3(m)*k3.e2*ap^-1*s13^-1*s23
       - 1/640*gmn1(e3,e4)*k3(m)*k3.e2*ap^-1
       + 1/640*gmn1(e3,e4)*k3(m)*k3.e2*ap^-1*s12*s14^-1
       - 1/1280*gmn1(e3,e4)*e2(m)*ap^-2
       + 1/640*gmn1(e3,e4)*e2(m)*ap^-1*s12
       - 1/320*gmn1(m,k2)*k1.e3*e2.e4*s23
       + 1/320*gmn1(m,k2)*k1.e4*e2.e3*s23
       + 1/320*gmn1(m,k2)*k1.e4*e2.e3*s12
       + 1/640*gmn1(m,k2)*k2.e3*e2.e4*ap^-1
       - 1/320*gmn1(m,k2)*k2.e3*e2.e4*s23
       - 1/320*gmn1(m,k2)*k2.e3*e2.e4*s12
       + 1/320*gmn1(m,k2)*k2.e4*e2.e3*s23
       + 1/320*gmn1(m,k2)*k2.e4*e2.e3*s12
       + 1/320*gmn1(m,k2)*k3.e2*e3.e4*s23
       + 1/320*gmn1(m,k2)*k3.e2*e3.e4*s12
       - 1/320*gmn1(m,k3)*k1.e2*e3.e4*s23
       + 1/640*gmn1(m,k3)*k2.e3*e2.e4*ap^-1
       - 1/320*gmn1(m,k3)*k2.e3*e2.e4*s12
       - 1/640*gmn1(m,k3)*k2.e4*e2.e3*ap^-1
       + 1/320*gmn1(m,k3)*k2.e4*e2.e3*s12
       + 1/320*gmn1(m,k3)*k3.e2*e3.e4*s12
       + 1/320*gmn1(m,e2)*k1.e3*k2.e4*s23
       - 1/320*gmn1(m,e2)*k1.e4*k2.e3*s23
       - 1/320*gmn1(m,e2)*k1.e4*k2.e3*s12
       - 1/640*gmn1(m,e2)*k2.e3*k2.e4*ap^-1
       - 1/320*gmn1(m,e2)*e3.e4*s23^2
       - 1/320*gmn1(m,e2)*e3.e4*s12*s23
       - 1/320*gmn1(m,e3)*k1.e2*k1.e4*s23
       - 1/320*gmn1(m,e3)*k1.e2*k2.e4*s23
       + 1/320*gmn1(m,e3)*k1.e4*k3.e2*s12
       + 1/640*gmn1(m,e3)*k2.e4*k3.e2*ap^-1
       - 1/640*gmn1(m,e3)*e2.e4*ap^-1*s23
       + 1/320*gmn1(m,e3)*e2.e4*s12*s23
       + 1/320*gmn1(m,e4)*k1.e2*k1.e3*s23
       - 1/640*gmn1(m,e4)*k1.e2*k2.e3*ap^-1
       + 1/320*gmn1(m,e4)*k1.e2*k2.e3*s23
       + 1/320*gmn1(m,e4)*k1.e2*k2.e3*s12
       - 1/320*gmn1(m,e4)*k1.e3*k3.e2*s12
       - 1/640*gmn1(m,e4)*k2.e3*k3.e2*ap^-1
       + 1/640*gmn1(m,e4)*e2.e3*ap^-1*s23
       + 1/640*gmn1(m,e4)*e2.e3*ap^-1*s12
       - 1/320*gmn1(m,e4)*e2.e3*s12*s23
       - 1/320*gmn1(m,e4)*e2.e3*s12^2
       - 1/640*bmnp1(k2,k3,e2)*k1(m)*e3.e4*i_*ap^-2*s14^-1
       + 1/640*bmnp1(k2,k3,e2)*k1(m)*e3.e4*i_*ap^-1
       - 1/640*bmnp1(k2,k3,e2)*k2(m)*e3.e4*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,k3,e2)*k2(m)*e3.e4*i_*ap^-1*s12^-1*s23
       + 1/320*bmnp1(k2,k3,e2)*k2(m)*e3.e4*i_*ap^-1
       - 1/640*bmnp1(k2,k3,e2)*k3(m)*e3.e4*i_*ap^-2*s13^-1
       - 1/640*bmnp1(k2,k3,e2)*k3(m)*e3.e4*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,k3,e2)*k3(m)*e3.e4*i_*ap^-1
       - 1/640*bmnp1(k2,k3,e2)*e3(m)*k1.e4*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e2)*e4(m)*k1.e3*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e3)*k1(m)*e2.e4*i_*ap^-2*s14^-1
       - 1/640*bmnp1(k2,k3,e3)*k1(m)*e2.e4*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e3)*k2(m)*e2.e4*i_*ap^-2*s12^-1
       + 1/640*bmnp1(k2,k3,e3)*k2(m)*e2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,k3,e3)*k2(m)*e2.e4*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e3)*k3(m)*e2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,k3,e3)*k3(m)*e2.e4*i_*ap^-1*s13^-1*s23
       - 1/320*bmnp1(k2,k3,e3)*k3(m)*e2.e4*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e3)*e2(m)*k1.e4*i_*ap^-1
       - 1/640*bmnp1(k2,k3,e3)*e4(m)*k1.e2*i_*ap^-1
       - 1/640*bmnp1(k2,k3,e4)*k1(m)*e2.e3*i_*ap^-2*s14^-1
       + 1/640*bmnp1(k2,k3,e4)*k1(m)*e2.e3*i_*ap^-1
       + 1/320*bmnp1(k2,k3,e4)*k1(m)*e2.e3*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k2,k3,e4)*k2(m)*e2.e3*i_*ap^-2*s12^-1
       - 1/640*bmnp1(k2,k3,e4)*k2(m)*e2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,k3,e4)*k2(m)*e2.e3*i_*ap^-1
       + 1/320*bmnp1(k2,k3,e4)*k2(m)*e2.e3*i_*ap^-1*s12*s14^-1
       + 1/640*bmnp1(k2,k3,e4)*k3(m)*e2.e3*i_*ap^-2*s13^-1
       - 1/640*bmnp1(k2,k3,e4)*k3(m)*e2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,k3,e4)*k3(m)*e2.e3*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k2,k3,e4)*e2(m)*k1.e3*i_*ap^-1
       + 1/640*bmnp1(k2,k3,e4)*e3(m)*k1.e2*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k1(m)*k1.e4*i_*ap^-2*s14^-1
       - 1/640*bmnp1(k2,e2,e3)*k1(m)*k1.e4*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k1(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/640*bmnp1(k2,e2,e3)*k1(m)*k2.e4*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k2(m)*k1.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,e2,e3)*k2(m)*k1.e4*i_*ap^-1*s12^-1*s23
       - 1/320*bmnp1(k2,e2,e3)*k2(m)*k1.e4*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k2(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,e2,e3)*k2(m)*k2.e4*i_*ap^-1*s12^-1*s23
       - 1/320*bmnp1(k2,e2,e3)*k2(m)*k2.e4*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k3(m)*k1.e4*i_*ap^-2*s13^-1
       + 1/640*bmnp1(k2,e2,e3)*k3(m)*k1.e4*i_*ap^-2*s14^-1
       - 3/640*bmnp1(k2,e2,e3)*k3(m)*k1.e4*i_*ap^-1
       + 1/640*bmnp1(k2,e2,e3)*k3(m)*k2.e4*i_*ap^-2*s13^-1
       + 1/640*bmnp1(k2,e2,e3)*k3(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,e2,e3)*k3(m)*k2.e4*i_*ap^-1
       + 1/1280*bmnp1(k2,e2,e3)*e4(m)*i_*ap^-2
       - 1/640*bmnp1(k2,e2,e3)*e4(m)*i_*ap^-1*s23
       - 1/640*bmnp1(k2,e2,e3)*e4(m)*i_*ap^-1*s12
       - 1/640*bmnp1(k2,e2,e4)*k1(m)*k1.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,e2,e4)*k1(m)*k1.e3*i_*ap^-1
       - 1/320*bmnp1(k2,e2,e4)*k1(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,e2,e4)*k1(m)*k2.e3*i_*ap^-1
       + 1/320*bmnp1(k2,e2,e4)*k1(m)*k2.e3*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k2,e2,e4)*k2(m)*k1.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,e2,e4)*k2(m)*k1.e3*i_*ap^-1*s12^-1*s23
       + 1/320*bmnp1(k2,e2,e4)*k2(m)*k1.e3*i_*ap^-1
       - 1/640*bmnp1(k2,e2,e4)*k2(m)*k2.e3*i_*ap^-2*s12^-1
       - 1/320*bmnp1(k2,e2,e4)*k2(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,e2,e4)*k2(m)*k2.e3*i_*ap^-1*s12^-1*s23
       + 1/160*bmnp1(k2,e2,e4)*k2(m)*k2.e3*i_*ap^-1
       + 1/320*bmnp1(k2,e2,e4)*k2(m)*k2.e3*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k2,e2,e4)*k3(m)*k1.e3*i_*ap^-2*s13^-1
       - 1/640*bmnp1(k2,e2,e4)*k3(m)*k1.e3*i_*ap^-2*s14^-1
       + 3/640*bmnp1(k2,e2,e4)*k3(m)*k1.e3*i_*ap^-1
       - 1/320*bmnp1(k2,e2,e4)*k3(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k2,e2,e4)*k3(m)*k2.e3*i_*ap^-1
       + 1/320*bmnp1(k2,e2,e4)*k3(m)*k2.e3*i_*ap^-1*s12*s14^-1
       + 1/1280*bmnp1(k2,e2,e4)*e3(m)*i_*ap^-2
       + 1/640*bmnp1(k2,e2,e4)*e3(m)*i_*ap^-1*s23
       + 1/640*bmnp1(k2,e2,e4)*e3(m)*i_*ap^-1*s12
       + 1/640*bmnp1(k2,e3,e4)*k1(m)*k3.e2*i_*ap^-2*s14^-1
       - 1/640*bmnp1(k2,e3,e4)*k1(m)*k3.e2*i_*ap^-1
       - 1/320*bmnp1(k2,e3,e4)*k1(m)*k3.e2*i_*ap^-1*s12*s14^-1
       + 1/640*bmnp1(k2,e3,e4)*k2(m)*k3.e2*i_*ap^-2*s12^-1
       + 1/640*bmnp1(k2,e3,e4)*k2(m)*k3.e2*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,e3,e4)*k2(m)*k3.e2*i_*ap^-1
       - 1/320*bmnp1(k2,e3,e4)*k2(m)*k3.e2*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k2,e3,e4)*k3(m)*k1.e2*i_*ap^-1
       - 1/640*bmnp1(k2,e3,e4)*k3(m)*k3.e2*i_*ap^-2*s13^-1
       + 1/640*bmnp1(k2,e3,e4)*k3(m)*k3.e2*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k2,e3,e4)*k3(m)*k3.e2*i_*ap^-1*s12*s14^-1
       + 1/1280*bmnp1(k2,e3,e4)*e2(m)*i_*ap^-2
       - 1/640*bmnp1(k2,e3,e4)*e2(m)*i_*ap^-1*s23
       - 1/640*bmnp1(k2,e3,e4)*e2(m)*i_*ap^-1*s12
       + 1/640*bmnp1(k3,e2,e3)*k1(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/640*bmnp1(k3,e2,e3)*k1(m)*k2.e4*i_*ap^-1
       + 1/640*bmnp1(k3,e2,e3)*k2(m)*k1.e4*i_*ap^-1
       + 1/640*bmnp1(k3,e2,e3)*k2(m)*k2.e4*i_*ap^-2*s12^-1
       + 1/640*bmnp1(k3,e2,e3)*k2(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k3,e2,e3)*k2(m)*k2.e4*i_*ap^-1
       + 1/640*bmnp1(k3,e2,e3)*k3(m)*k2.e4*i_*ap^-2*s14^-1
       - 1/320*bmnp1(k3,e2,e3)*k3(m)*k2.e4*i_*ap^-1*s13^-1*s23
       - 1/320*bmnp1(k3,e2,e3)*k3(m)*k2.e4*i_*ap^-1
       - 1/640*bmnp1(k3,e2,e3)*e4(m)*i_*ap^-1*s12
       - 1/640*bmnp1(k3,e2,e4)*k1(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/640*bmnp1(k3,e2,e4)*k1(m)*k2.e3*i_*ap^-1
       + 1/320*bmnp1(k3,e2,e4)*k1(m)*k2.e3*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k3,e2,e4)*k2(m)*k1.e3*i_*ap^-1
       - 1/640*bmnp1(k3,e2,e4)*k2(m)*k2.e3*i_*ap^-2*s12^-1
       - 1/640*bmnp1(k3,e2,e4)*k2(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k3,e2,e4)*k2(m)*k2.e3*i_*ap^-1
       + 1/320*bmnp1(k3,e2,e4)*k2(m)*k2.e3*i_*ap^-1*s12*s14^-1
       + 1/640*bmnp1(k3,e2,e4)*k3(m)*k2.e3*i_*ap^-2*s13^-1
       - 1/640*bmnp1(k3,e2,e4)*k3(m)*k2.e3*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k3,e2,e4)*k3(m)*k2.e3*i_*ap^-1*s12*s14^-1
       + 1/640*bmnp1(k3,e2,e4)*e3(m)*i_*ap^-1*s12
       - 1/640*bmnp1(k3,e3,e4)*k1(m)*k1.e2*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k3,e3,e4)*k1(m)*k1.e2*i_*ap^-1
       - 1/320*bmnp1(k3,e3,e4)*k1(m)*k3.e2*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k3,e3,e4)*k2(m)*k1.e2*i_*ap^-2*s12^-1
       - 1/640*bmnp1(k3,e3,e4)*k2(m)*k1.e2*i_*ap^-2*s14^-1
       + 3/640*bmnp1(k3,e3,e4)*k2(m)*k1.e2*i_*ap^-1
       - 1/320*bmnp1(k3,e3,e4)*k2(m)*k3.e2*i_*ap^-1*s12*s14^-1
       - 1/640*bmnp1(k3,e3,e4)*k3(m)*k1.e2*i_*ap^-2*s14^-1
       + 1/320*bmnp1(k3,e3,e4)*k3(m)*k1.e2*i_*ap^-1*s13^-1*s23
       + 1/320*bmnp1(k3,e3,e4)*k3(m)*k1.e2*i_*ap^-1
       - 1/640*bmnp1(k3,e3,e4)*k3(m)*k3.e2*i_*ap^-2*s13^-1
       + 1/320*bmnp1(k3,e3,e4)*k3(m)*k3.e2*i_*ap^-1*s13^-1*s23
       + 1/320*bmnp1(k3,e3,e4)*k3(m)*k3.e2*i_*ap^-1
       - 1/320*bmnp1(k3,e3,e4)*k3(m)*k3.e2*i_*ap^-1*s12*s14^-1
       + 1/640*bmnp1(k3,e3,e4)*e2(m)*i_*ap^-2
       - 1/640*bmnp1(k3,e3,e4)*e2(m)*i_*ap^-1*s12
       + 1/1280*bmnp1(e2,e3,e4)*k1(m)*i_*ap^-3*s14^-1
       - 1/640*bmnp1(e2,e3,e4)*k1(m)*i_*ap^-2
       - 1/640*bmnp1(e2,e3,e4)*k1(m)*i_*ap^-2*s12*s14^-1
       + 1/640*bmnp1(e2,e3,e4)*k1(m)*i_*ap^-1*s23
       + 1/320*bmnp1(e2,e3,e4)*k1(m)*i_*ap^-1*s12
       + 1/1280*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-3*s14^-1
       - 1/640*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-2*s12^-1*s23
       - 3/1280*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-2
       - 1/640*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-2*s12*s14^-1
       + 3/640*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-1*s23
       + 3/640*bmnp1(e2,e3,e4)*k2(m)*i_*ap^-1*s12
       + 1/1280*bmnp1(e2,e3,e4)*k3(m)*i_*ap^-3*s14^-1
       + 1/640*bmnp1(e2,e3,e4)*k3(m)*i_*ap^-2*s13^-1*s23
       - 1/640*bmnp1(e2,e3,e4)*k3(m)*i_*ap^-2
       - 1/640*bmnp1(e2,e3,e4)*k3(m)*i_*ap^-2*s12*s14^-1
       + 3/640*bmnp1(e2,e3,e4)*k3(m)*i_*ap^-1*s12
       + 1/640*bmnp1(m,k2,k3)*k1.e2*e3.e4*i_*ap^-1
       - 1/640*bmnp1(m,k2,k3)*k1.e3*e2.e4*i_*ap^-1
       + 1/640*bmnp1(m,k2,k3)*k1.e4*e2.e3*i_*ap^-1
       - 1/320*bmnp1(m,k2,k3)*k2.e3*e2.e4*i_*ap^-1
       + 1/320*bmnp1(m,k2,k3)*k2.e4*e2.e3*i_*ap^-1
       + 1/320*bmnp1(m,k2,k3)*k3.e2*e3.e4*i_*ap^-1
       - 1/640*bmnp1(m,k2,e2)*k1.e3*k1.e4*i_*ap^-1
       - 1/640*bmnp1(m,k2,e2)*k1.e3*k2.e4*i_*ap^-1
       - 1/1280*bmnp1(m,k2,e2)*e3.e4*i_*ap^-2
       + 1/640*bmnp1(m,k2,e2)*e3.e4*i_*ap^-1*s23
       + 1/640*bmnp1(m,k2,e2)*e3.e4*i_*ap^-1*s12
       + 1/640*bmnp1(m,k2,e3)*k1.e2*k1.e4*i_*ap^-1
       + 1/640*bmnp1(m,k2,e3)*k1.e2*k2.e4*i_*ap^-1
       + 1/640*bmnp1(m,k2,e3)*k1.e4*k3.e2*i_*ap^-1
       + 1/1280*bmnp1(m,k2,e3)*e2.e4*i_*ap^-2
       + 1/640*bmnp1(m,k2,e3)*e2.e4*i_*ap^-1*s23
       - 1/640*bmnp1(m,k2,e3)*e2.e4*i_*ap^-1*s12
       - 1/640*bmnp1(m,k2,e4)*k1.e3*k3.e2*i_*ap^-1
       + 1/1280*bmnp1(m,k2,e4)*e2.e3*i_*ap^-2
       - 1/640*bmnp1(m,k2,e4)*e2.e3*i_*ap^-1*s23
       - 1/640*bmnp1(m,k2,e4)*e2.e3*i_*ap^-1*s12
       - 1/640*bmnp1(m,k3,e2)*k1.e3*k2.e4*i_*ap^-1
       + 1/640*bmnp1(m,k3,e2)*k1.e4*k2.e3*i_*ap^-1
       + 1/320*bmnp1(m,k3,e2)*e3.e4*i_*ap^-1*s23
       + 1/640*bmnp1(m,k3,e2)*e3.e4*i_*ap^-1*s12
       + 1/640*bmnp1(m,k3,e3)*k1.e2*k2.e4*i_*ap^-1
       - 1/640*bmnp1(m,k3,e3)*e2.e4*i_*ap^-1*s12
       - 1/640*bmnp1(m,k3,e4)*k1.e2*k2.e3*i_*ap^-1
       + 1/640*bmnp1(m,k3,e4)*e2.e3*i_*ap^-1*s12
       - 1/640*bmnp1(m,e2,e3)*k1.e4*i_*ap^-1*s23
       - 1/640*bmnp1(m,e2,e3)*k1.e4*i_*ap^-1*s12
       - 1/1280*bmnp1(m,e2,e3)*k2.e4*i_*ap^-2
       - 1/640*bmnp1(m,e2,e3)*k2.e4*i_*ap^-1*s23
       + 1/640*bmnp1(m,e2,e4)*k1.e3*i_*ap^-1*s23
       - 1/1280*bmnp1(m,e2,e4)*k2.e3*i_*ap^-2
       + 1/640*bmnp1(m,e2,e4)*k2.e3*i_*ap^-1*s23
       + 1/640*bmnp1(m,e2,e4)*k2.e3*i_*ap^-1*s12
       + 1/640*bmnp1(m,e3,e4)*k1.e2*i_*ap^-1*s23
       - 1/640*bmnp1(m,e3,e4)*k3.e2*i_*ap^-1*s12
       + 1/3840*bmnp1(zz1,zz2,zz3)*e_(k1,k2,k3,e2,e3,e4,m,zz1,zz2,zz3)*ap^-1
      ;
sum zz1,...,zz10;
.sort