OPE2TID[exp, k1, k2, p] does a special tensor integral decomposition of exp.
OPE2TID[exp, k1, k2, p]
Overview, OPESum.