)*   (-b . Cross[d, g] + b . Cross[d, h] + b . Cross[f, g] - b . Cross[f, h] -     d . Cross[f, g] + d . Cross[f, h]) +   (00*I)*m*\[CapitalEpsilon]0*(-a0 . Cross[b, c] - a0 . Cross[b, d] - a0 . Cross[c, d])*   (-b . b - b . e + b . f + e . f) + (00*I)*\[CapitalEpsilon]0*\[CapitalEpsilon]0*   (-a0 . Cross[b, c] - a0 . Cross[b, d] - a0 . Cross[c, d])*   (-b . b - b . e + b . f + e . f) +   (00*I)*(-a0 . Cross[b, g] + a0 . Cross[b, h] + a0 . Cross[d, g] -     a0 . Cross[d, h])*(b . 