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