How to use the pyscf.ccn.util.e function in pyscf

def eq_ip_s(oo, ov, oovo, oovv, r_ip1, t1):
    h = 0
    h -= e("ji,j->i", oo, r_ip1)  # d0_o
    h -= e("ja,j,ia->i", ov, r_ip1, t1)  # d1_o
    h -= e("kjba,j,ia,kb->i", oovv, r_ip1, t1, t1)  # d2_o
    h += e("ikaj,i,ka->j", oovo, r_ip1, t1)  # d3_o
    return h

hhhEE += 1./2 * p("aab..", e("ijab,kla,ijmbdc->klmdc", oovv, r_ip2, t3))  # d62_ooovv
    hhhEE += 1./2 * p("abc..", p("...ab", e("lmcd,lka,id,jc,mb->jkiab", oovv, r_ip2, t1, t1, t1)))  # d63_ooovv
    hhE -= p("ab.", e("ljcb,ija,kb,lc->ika", oovv, r_ip2, t1, t1))  # d64_oov
    hhhEE += p("abc..", p("...ab", e("miad,mkc,ld,ijab->kjlcb", oovv, r_ip2, t1, t2)))  # d65_ooovv
    hhhEE -= 1./2 * p("abb..", p("...ab", e("jkcb,jia,kd,mlcb->imlad", oovv, r_ip2, t1, t2)))  # d66_ooovv
    hhhEE += p("abb..", p("...ab", e("imdc,ija,mc,lkdb->jlkab", oovv, r_ip2, t1, t2)))  # d67_ooovv
    hhE += 1./2 * p("ab.", e("klcb,ika,ljcb->ija", oovv, r_ip2, t2))  # d68_oov
    hhhEE -= 1./2 * p("abb..", p("...ab", e("jmdc,jia,mlkdcb->ilkab", oovv, r_ip2, t3)))  # d69_ooovv
    hhE += p("ab.", e("ilab,ija,kb,lc->jkc", oovv, r_ip2, t1, t1))  # d70_oov
    hhhEE -= p("abc..", e("ljda,lmd,ia,jkcb->mkicb", oovv, r_ip2, t1, t2))  # d71_ooovv
    hhhEE -= p("abb..", p("...ab", e("lmcd,ilc,ma,kjbd->ikjba", oovv, r_ip2, t1, t2)))  # d72_ooovv
    h -= e("ikab,ija,kb->j", oovv, r_ip2, t1)  # d73_o
    hhE -= p("ab.", e("ikab,ija,klbc->jlc", oovv, r_ip2, t2))  # d74_oov
    hhhEE -= p("abb..", e("imad,ija,mlkdcb->jlkcb", oovv, r_ip2, t3))  # d75_ooovv
    hhE += 1./4 * p("ab.", e("klcb,kla,ib,jc->jia", oovv, r_ip2, t1, t1))  # d76_oov
    hhhEE += 1./2 * p("aab..", p("...ab", e("ijba,ijc,kb,lmad->lmkcd", oovv, r_ip2, t1, t2)))  # d77_ooovv
    hhE += 1./4 * e("klba,klc,ijba->ijc", oovv, r_ip2, t2)  # d78_oov
    hhhEE += 1./4 * p("...ab", e("ijba,ijc,lmkbad->lmkcd", oovv, r_ip2, t3))  # d79_ooovv
    h += 1./2 * e("jkba,jkb,ia->i", oovv, r_ip2, t1)  # d80_o
    hhE += 1./2 * e("ijab,ija,klbc->klc", oovv, r_ip2, t2)  # d81_oov
    hhhEE += 1./2 * e("lmcd,lmc,jkidba->jkiba", oovv, r_ip2, t3)  # d82_ooovv
    hhhEE -= p("...ab", e("lmad,jkiab,ld,mc->jkibc", oovv, r_ip3, t1, t1))  # d83_ooovv
    hhhEE += 1./2 * p("...ab", e("lmcd,jkiac,lmdb->jkiab", oovv, r_ip3, t2))  # d84_ooovv
    hhhEE += 1./4 * p("...ab", e("jiba,lmkba,ic,jd->lmkdc", oovv, r_ip3, t1, t1))  # d85_ooovv
    hhhEE += 1./4 * e("lmdc,jkidc,lmba->jkiba", oovv, r_ip3, t2)  # d86_ooovv
    hhhEE -= p("aab..", e("imad,klmcb,ia,jd->kljcb", oovv, r_ip3, t1, t1))  # d87_ooovv
    hhhEE += 1./2 * p("aab..", e("mldc,jkmba,lidc->jkiba", oovv, r_ip3, t2))  # d88_ooovv
    hhhEE += p("aab..", p("...ab", e("lmcd,mijcb,kd,la->ijkab", oovv, r_ip3, t1, t1)))  # d89_ooovv
    hhE -= e("klbc,kijba,lc->ija", oovv, r_ip3, t1)  # d90_oov
    hhhEE -= p("aab..", p("...ab", e("ijab,iklac,jmbd->klmcd", oovv, r_ip3, t2)))  # d91_ooovv
    hhE += 1./2 * e("ijba,iklba,jc->klc", oovv, r_ip3, t1)  # d92_oov
    hhhEE += 1./2 * p("aab..", e("kmba,kjiba,mldc->jildc", oovv, r_ip3, t2))  # d93_ooovv

hEE += 1./2 * p(".ab", e("kiba,ijbac,kd->jcd", oovv, r_ea3, t1))  # d100_ovv
    hhEEE += 1./2 * p("ab...", p("..abb", e("liba,ijbac,lked->jkced", oovv, r_ea3, t2)))  # d101_oovvv
    hhEEE += 1./4 * p("ab...", e("klab,kledc,ia,jb->ijedc", oovv, r_ea3, t1, t1))  # d102_oovvv
    hhEEE += 1./4 * e("kled,klcba,ijed->ijcba", oovv, r_ea3, t2)  # d103_oovvv
    hEE -= 1./2 * e("jkad,jkdcb,ia->icb", oovv, r_ea3, t1)  # d104_ovv
    hhEEE += 1./2 * p("..aab", e("ijad,ijacb,klde->klcbe", oovv, r_ea3, t2))  # d105_oovvv
    E += 1./4 * e("ijba,ijbac->c", oovv, r_ea3)  # d106_v
    hEE += 1./2 * p(".ab", e("kjai,a,jc,kb->ibc", oovo, r_ea1, t1, t1))  # d107_ovv
    hhEEE -= p("ab...", p("..aab", e("jlck,c,ld,jiba->kibad", oovo, r_ea1, t1, t2)))  # d108_oovvv
    hEE += 1./2 * e("jkci,c,jkba->iba", oovo, r_ea1, t2)  # d109_ovv
    hhEEE += 1./2 * p("ab...", e("ijdl,d,ijkcba->lkcba", oovo, r_ea1, t3))  # d110_oovvv
    hhEEE += 1./2 * p("ab...", p("..abc", e("ikaj,lad,ib,kc->jlbcd", oovo, r_ea2, t1, t1)))  # d111_oovvv
    hhEEE += 1./2 * p("ab...", p("..aab", e("kldi,jdc,klba->ijbac", oovo, r_ea2, t2)))  # d112_oovvv
    hhEEE -= p("ab...", p("..abb", e("ilck,iba,jc,ld->kjdba", oovo, r_ea2, t1, t1)))  # d113_oovvv
    hEE -= e("jkci,kba,jc->iba", oovo, r_ea2, t1)  # d114_ovv
    hhEEE += p("ab...", p("..abb", e("ildj,iba,lkdc->jkcba", oovo, r_ea2, t2)))  # d115_oovvv
    hEE += p(".ab", e("jkci,kcb,ja->iab", oovo, r_ea2, t1))  # d116_ovv
    hhEEE += p("ab...", p("..aab", e("ijak,iab,jldc->kldcb", oovo, r_ea2, t2)))  # d117_oovvv
    hhEEE += p("ab...", e("ildk,ijcba,ld->kjcba", oovo, r_ea3, t1))  # d118_oovvv
    hhEEE -= p("ab...", p("..aab", e("jiak,jlacb,id->klcbd", oovo, r_ea3, t1)))  # d119_oovvv
    hhEEE -= 1./2 * p("ab...", e("ijak,ijdcb,la->kldcb", oovo, r_ea3, t1))  # d120_oovvv
    hEE += 1./2 * e("ijak,ijacb->kcb", oovo, r_ea3)  # d121_ovv
    hhEEE -= p("..abb", e("klij,lcb,ka->ijacb", oooo, r_ea2, t1))  # d122_oovvv
    hhEEE += 1./2 * e("klij,klcba->ijcba", oooo, r_ea3)  # d123_oovvv
    return E, hEE, hhEEE

hEE += p(".ab", e("ibaj,iac->jbc", ovvo, r_ea2))  # d47_ovv
    hhEEE += p("ab...", p("..abb", e("idak,ijacb->kjdcb", ovvo, r_ea3)))  # d48_oovvv
    hhEEE -= p("..abb", e("iajk,icb->jkacb", ovoo, r_ea2))  # d49_oovvv
    hEE -= 1./2 * p(".ab", e("kjad,d,ia,kb,jc->ibc", oovv, r_ea1, t1, t1, t1))  # d50_ovv
    hhEEE -= p("ab...", p("..abb", e("lied,d,ia,je,lkcb->kjacb", oovv, r_ea1, t1, t1, t2)))  # d51_oovvv
    hEE += 1./2 * e("jkcd,c,id,jkba->iba", oovv, r_ea1, t1, t2)  # d52_ovv
    hhEEE -= 1./2 * p("ab...", e("ijab,a,lb,ijkedc->kledc", oovv, r_ea1, t1, t3))  # d53_oovvv
    hhEEE -= 1./2 * p("..abc", e("jidc,c,ia,jb,klde->kleba", oovv, r_ea1, t1, t1, t2))  # d54_oovvv
    E -= e("ijba,b,ja,ic->c", oovv, r_ea1, t1, t1)  # d55_v
    hEE -= p(".ab", e("jkcd,d,ja,kicb->iba", oovv, r_ea1, t1, t2))  # d56_ovv
    hhEEE -= p("..aab", e("ijab,a,ie,jklbdc->kldce", oovv, r_ea1, t1, t3))  # d57_oovvv
    hEE += e("kjcd,c,jd,ikba->iba", oovv, r_ea1, t1, t2)  # d58_ovv
    hhEEE += e("liab,b,ia,ljkedc->jkedc", oovv, r_ea1, t1, t3)  # d59_oovvv
    hhEEE += 1./2 * p("..aab", e("ijed,e,ijba,kldc->klbac", oovv, r_ea1, t2, t2))  # d60_oovvv
    hhEEE -= p("ab...", p("..abb", e("ilde,e,ijba,lkdc->kjcba", oovv, r_ea1, t2, t2)))  # d61_oovvv
    E -= 1./2 * e("ijab,b,ijac->c", oovv, r_ea1, t2)  # d62_v
    hEE += 1./2 * e("jkdc,d,jkicba->iba", oovv, r_ea1, t3)  # d63_ovv
    hhEEE += 1./2 * p("ab...", p("..abc", e("klab,jbc,ia,kd,le->ijedc", oovv, r_ea2, t1, t1, t1)))  # d64_oovvv
    hhEEE -= 1./2 * p("ab...", p("..aab", e("klae,jeb,ia,kldc->ijdcb", oovv, r_ea2, t1, t2)))  # d65_oovvv
    hEE += p(".ab", e("jkcb,iba,jd,kc->ida", oovv, r_ea2, t1, t1))  # d66_ovv
    hhEEE += p("ab...", p("..abc", e("lkde,jec,lb,kida->ijbac", oovv, r_ea2, t1, t2)))  # d67_oovvv
    hhEEE -= p("ab...", p("..aab", e("ljea,iab,le,jkdc->kidcb", oovv, r_ea2, t1, t2)))  # d68_oovvv
    hEE += 1./2 * p(".ab", e("ijda,kdc,ijab->kbc", oovv, r_ea2, t2))  # d69_ovv
    hhEEE += 1./2 * p("ab...", p("..aab", e("ijba,lbe,ijkadc->kldce", oovv, r_ea2, t3)))  # d70_oovvv
    hEE += 1./4 * p(".ab", e("ikdc,jdc,ia,kb->jab", oovv, r_ea2, t1, t1))  # d71_ovv
    hhEEE += 1./2 * p("ab...", p("..aab", e("kled,jed,lc,kiba->ijbac", oovv, r_ea2, t1, t2)))  # d72_oovvv
    hEE += 1./4 * e("jkba,iba,jkdc->idc", oovv, r_ea2, t2)  # d73_ovv
    hhEEE -= 1./4 * p("ab...", e("ijba,lba,ijkedc->kledc", oovv, r_ea2, t3))  # d74_oovvv
    hhEEE += 1./2 * p("ab...", p("..abb", e("ljea,ldc,ia,jb,ke->kibdc", oovv, r_ea2, t1, t1, t1)))  # d75_oovvv
    hEE -= e("ikad,kcb,ia,jd->jcb", oovv, r_ea2, t1, t1)  # d76_ovv
    hhEEE -= p("ab...", p("..abb", e("iled,iba,kd,ljec->jkcba", oovv, r_ea2, t1, t2)))  # d77_oovvv
    hhEEE += 1./2 * p("..abb", e("klba,ked,lc,ijba->ijced", oovv, r_ea2, t1, t2))  # d78_oovvv

He -= 1./4 * e("imae,kjlcbd,le,ikjacb->md", oovv, a3, t1, t3)  # d163_ov
    He += 1./12 * e("jkae,limdcb,ia,jkldcb->me", oovv, a3, t1, t3)  # d164_ov
    He += 1./4 * e("jkba,miledc,ia,jkmbed->lc", oovv, a3, t1, t3)  # d165_ov
    HHHeee -= 1./2 * p("...aab", e("imcb,kljade,ia,me->kljcbd", oovv, a3, t1, t1))  # d166_ooovvv
    He += 1./4 * e("jiab,klmced,jd,ie,klac->mb", oovv, a3, t1, t1, t2)  # d167_ov
    He -= 1./8 * e("ijba,lmkcde,ic,je,lmba->kd", oovv, a3, t1, t1, t2)  # d168_ov
    HHHeee += p("...abb", e("ijab,lmkced,jc,ib->lmkaed", oovv, a3, t1, t1))  # d169_ooovvv
    He += 1./2 * e("jiab,klmcde,ia,je,klbc->md", oovv, a3, t1, t1, t2)  # d170_ov
    HHee -= 1./2 * p("..ab", p("ab..", e("lmed,ijkacb,mb,ijae->lkdc", oovv, a3, t1, t2)))  # d171_oovv
    HHee += 1./4 * p("ab..", e("imed,kljacb,ia,kled->mjcb", oovv, a3, t1, t2))  # d172_oovv
    HHee += 1./2 * e("kied,jlmcba,ia,jkcb->lmed", oovv, a3, t1, t2)  # d173_oovv
    HHee -= p("..ab", e("lmed,ikjbac,ma,ilbe->kjdc", oovv, a3, t1, t2))  # d174_oovv
    HHee += 1./2 * e("jkba,ilmced,kc,ijba->lmed", oovv, a3, t1, t2)  # d175_oovv
    He -= 1./12 * e("lmae,jkicbd,ld,jkiacb->me", oovv, a3, t1, t3)  # d176_ov
    He += 1./12 * e("imed,kljbac,ia,kljedb->mc", oovv, a3, t1, t3)  # d177_ov
    He += 1./4 * e("ijba,mlkdce,ie,jmlbdc->ka", oovv, a3, t1, t3)  # d178_ov
    He -= 1./4 * e("ijba,lmkdce,je,ilmbad->kc", oovv, a3, t1, t3)  # d179_ov
    HHee -= 1./2 * p("ab..", e("klac,ijmbed,kc,ijab->lmed", oovv, a3, t1, t2))  # d180_oovv
    HHee += 1./2 * p("..ab", e("imce,jklbad,me,ijba->klcd", oovv, a3, t1, t2))  # d181_oovv
    HHee += e("jkbc,ilmaed,kc,ijab->lmed", oovv, a3, t1, t2)  # d182_oovv
    He -= 1./12 * e("jiab,lmkedc,ib,lmkaed->jc", oovv, a3, t1, t3)  # d183_ov
    He += 1./12 * e("kjba,lmiedc,jb,klmedc->ia", oovv, a3, t1, t3)  # d184_ov
    He += 1./4 * e("ijab,lmkedc,jb,ilmaed->kc", oovv, a3, t1, t3)  # d185_ov
    HHHeee -= 1./2 * p("...abb", p("aab...", e("lmed,ijkacb,ijea->lmkdcb", oovv, a3, t2)))  # d186_ooovvv
    He += 1./4 * e("lmed,kjicba,jida,mkcb->le", oovv, a3, t2, t2)  # d187_ov
    He -= 1./2 * e("mlae,kijdbc,ijab,mked->lc", oovv, a3, t2, t2)  # d188_ov
    He -= 1./8 * e("ijab,klmedc,klac,ijed->mb", oovv, a3, t2, t2)  # d189_ov
    He -= 1./4 * e("jkbd,lmicea,jkbc,lmde->ia", oovv, a3, t2, t2)  # d190_ov
    HHHeee += 1./4 * p("aab...", e("ijba,kmledc,mlba->ijkedc", oovv, a3, t2))  # d191_ooovvv
    He -= 1./8 * e("mlba,kijdce,ijba,mkdc->le", oovv, a3, t2, t2)  # d192_ov
    He += 1./16 * e("lmed,ijkbac,ijed,lmba->kc", oovv, a3, t2, t2)  # d193_ov
    HHHeee -= 1./2 * p("...aab", p("abb...", e("ikdc,jmlbae,ijba->kmldce", oovv, a3, t2)))  # d194_ooovvv

HHee += p("..ab", e("kc,ijba,kb->ijac", ov, a2, t1))  # d11_oovv
    He -= e("ka,ijcb,ia,kc->jb", ov, a2, t1, t1)  # d12_ov
    HHee -= p("ab..", e("jc,ikba,kc->ijba", ov, a2, t1))  # d13_oovv
    He += e("ia,jkbc,kica->jb", ov, a2, t2)  # d14_ov
    He -= 1./2 * e("jc,ikba,ijba->kc", ov, a2, t2)  # d15_ov
    He += 1./2 * e("ib,jkac,jkcb->ia", ov, a2, t2)  # d16_ov
    HHee += 1./2 * e("badc,ijba->ijdc", vvvv, a2)  # d17_oovv
    He -= 1./2 * e("cbad,jicb,jd->ia", vvvv, a2, t1)  # d18_ov
    He += 1./2 * e("bacj,ijba->ic", vvvo, a2)  # d19_ov
    HHee -= p("ab..", e("jacb,ia->ijcb", ovvv, a1))  # d20_oovv
    He -= e("jcab,ic,jb->ia", ovvv, a1, t1)  # d21_ov
    He -= e("jacb,ia,ic->jb", ovvv, a1, t1)  # d22_ov
    HHee -= p("..ab", p("ab..", e("icda,kjcb,kd->ijab", ovvv, a2, t1)))  # d23_oovv
    He += 1./2 * e("kbcd,ijba,ic,jd->ka", ovvv, a2, t1, t1)  # d24_ov
    He -= e("kbad,ijcb,ia,kc->jd", ovvv, a2, t1, t1)  # d25_ov
    He += e("jdbc,kida,jb,kc->ia", ovvv, a2, t1, t1)  # d26_ov
    HHee -= e("ibdc,jkab,ia->jkdc", ovvv, a2, t1)  # d27_oovv
    HHee += p("..ab", e("ibac,jkbd,ia->jkcd", ovvv, a2, t1))  # d28_oovv
    He += 1./2 * e("icba,jkdc,jkbd->ia", ovvv, a2, t2)  # d29_ov
    He += 1./4 * e("ibdc,jkba,jkdc->ia", ovvv, a2, t2)  # d30_ov
    He += e("iabc,jkda,ijbd->kc", ovvv, a2, t2)  # d31_ov
    He += 1./2 * e("jcba,ikcd,jiba->kd", ovvv, a2, t2)  # d32_ov
    He += e("jabi,ia->jb", ovvo, a1)  # d33_ov
    HHee += p("..ab", p("ab..", e("kaci,ijab->kjcb", ovvo, a2)))  # d34_oovv
    He -= e("jcak,kicb,ia->jb", ovvo, a2, t1)  # d35_ov
    He -= e("kbci,ijba,ka->jc", ovvo, a2, t1)  # d36_ov
    He += e("jabi,ikac,jb->kc", ovvo, a2, t1)  # d37_ov
    He += 1./2 * e("kaij,ijab->kb", ovoo, a2)  # d38_ov
    HHee += e("ijba->ijba", oovv)  # d39_oovv
    He += e("jiba,jb->ia", oovv, t1)  # d40_ov
    HHee += p("..ab", e("ijba,kc,kb->ijac", oovv, a1, t1))  # d41_oovv
    He -= e("ijab,kc,ka,ic->jb", oovv, a1, t1, t1)  # d42_ov

He += 1./2 * e("jiab,klmcde,ia,je,klbc->md", oovv, a3, t1, t1, t2)  # d170_ov
    HHee -= 1./2 * p("..ab", p("ab..", e("lmed,ijkacb,mb,ijae->lkdc", oovv, a3, t1, t2)))  # d171_oovv
    HHee += 1./4 * p("ab..", e("imed,kljacb,ia,kled->mjcb", oovv, a3, t1, t2))  # d172_oovv
    HHee += 1./2 * e("kied,jlmcba,ia,jkcb->lmed", oovv, a3, t1, t2)  # d173_oovv
    HHee -= p("..ab", e("lmed,ikjbac,ma,ilbe->kjdc", oovv, a3, t1, t2))  # d174_oovv
    HHee += 1./2 * e("jkba,ilmced,kc,ijba->lmed", oovv, a3, t1, t2)  # d175_oovv
    He -= 1./12 * e("lmae,jkicbd,ld,jkiacb->me", oovv, a3, t1, t3)  # d176_ov
    He += 1./12 * e("imed,kljbac,ia,kljedb->mc", oovv, a3, t1, t3)  # d177_ov
    He += 1./4 * e("ijba,mlkdce,ie,jmlbdc->ka", oovv, a3, t1, t3)  # d178_ov
    He -= 1./4 * e("ijba,lmkdce,je,ilmbad->kc", oovv, a3, t1, t3)  # d179_ov
    HHee -= 1./2 * p("ab..", e("klac,ijmbed,kc,ijab->lmed", oovv, a3, t1, t2))  # d180_oovv
    HHee += 1./2 * p("..ab", e("imce,jklbad,me,ijba->klcd", oovv, a3, t1, t2))  # d181_oovv
    HHee += e("jkbc,ilmaed,kc,ijab->lmed", oovv, a3, t1, t2)  # d182_oovv
    He -= 1./12 * e("jiab,lmkedc,ib,lmkaed->jc", oovv, a3, t1, t3)  # d183_ov
    He += 1./12 * e("kjba,lmiedc,jb,klmedc->ia", oovv, a3, t1, t3)  # d184_ov
    He += 1./4 * e("ijab,lmkedc,jb,ilmaed->kc", oovv, a3, t1, t3)  # d185_ov
    HHHeee -= 1./2 * p("...abb", p("aab...", e("lmed,ijkacb,ijea->lmkdcb", oovv, a3, t2)))  # d186_ooovvv
    He += 1./4 * e("lmed,kjicba,jida,mkcb->le", oovv, a3, t2, t2)  # d187_ov
    He -= 1./2 * e("mlae,kijdbc,ijab,mked->lc", oovv, a3, t2, t2)  # d188_ov
    He -= 1./8 * e("ijab,klmedc,klac,ijed->mb", oovv, a3, t2, t2)  # d189_ov
    He -= 1./4 * e("jkbd,lmicea,jkbc,lmde->ia", oovv, a3, t2, t2)  # d190_ov
    HHHeee += 1./4 * p("aab...", e("ijba,kmledc,mlba->ijkedc", oovv, a3, t2))  # d191_ooovvv
    He -= 1./8 * e("mlba,kijdce,ijba,mkdc->le", oovv, a3, t2, t2)  # d192_ov
    He += 1./16 * e("lmed,ijkbac,ijed,lmba->kc", oovv, a3, t2, t2)  # d193_ov
    HHHeee -= 1./2 * p("...aab", p("abb...", e("ikdc,jmlbae,ijba->kmldce", oovv, a3, t2)))  # d194_ooovvv
    He += 1./2 * e("ijba,mlkedc,jldc,imbe->ka", oovv, a3, t2, t2)  # d195_ov
    He -= 1./4 * e("jiba,mlkedc,iled,jmba->kc", oovv, a3, t2, t2)  # d196_ov
    HHHeee += p("...abb", p("abb...", e("ijab,mlkedc,imae->jlkbdc", oovv, a3, t2)))  # d197_ooovvv
    He += 1./2 * e("lmde,ikjacb,lkdc,miea->jb", oovv, a3, t2, t2)  # d198_ov
    HHHeee -= 1./2 * p("abb...", e("ijba,mlkedc,imba->jlkedc", oovv, a3, t2))  # d199_ooovvv
    HHHeee += 1./4 * p("...aab", e("ijba,lmkdce,ijdc->lmkbae", oovv, a3, t2))  # d200_ooovvv
    HHHeee += 1./2 * p("...abb", e("ijab,lmkdce,ijbe->lmkadc", oovv, a3, t2))  # d201_ooovvv

hhEE -= p("ab..", e("ij,ikba->jkba", oo, t2))  # d4_oovv
    hhhEEE -= p("abb...", e("il,ikjcba->lkjcba", oo, t3))  # d5_ooovvv
    hE += e("ai->ia", vo)  # d6_ov
    hE -= e("ia,ja,ib->jb", ov, t1, t1)  # d7_ov
    hhEE -= p("ab..", e("kc,ic,kjba->ijba", ov, t1, t2))  # d8_oovv
    hhhEEE -= p("abb...", e("ld,kd,ljicba->kjicba", ov, t1, t3))  # d9_ooovvv
    hhEE -= p("..ab", e("kc,ka,ijcb->ijab", ov, t1, t2))  # d10_oovv
    hhhEEE -= p("...abb", e("la,ld,jkiacb->jkidcb", ov, t1, t3))  # d11_ooovvv
    hhhEEE -= p("aab...", p("...abb", e("id,ijba,klcd->kljcba", ov, t2, t2)))  # d12_ooovvv
    hE += e("ia,ijab->jb", ov, t2)  # d13_ov
    hhEE += e("ia,ikjacb->kjcb", ov, t3)  # d14_oovv
    hhEE += 1./2 * p("ab..", e("cbad,ia,jd->ijcb", vvvv, t1, t1))  # d15_oovv
    hhhEEE += p("abb...", p("...aab", e("dcea,ke,ijab->kijdcb", vvvv, t1, t2)))  # d16_ooovvv
    hhEE += 1./2 * e("dcba,ijba->ijdc", vvvv, t2)  # d17_oovv
    hhhEEE += 1./2 * p("...abb", e("badc,jkidce->jkieba", vvvv, t3))  # d18_ooovvv
    hhEE += p("ab..", e("cbaj,ia->ijcb", vvvo, t1))  # d19_oovv
    hhhEEE -= p("aab...", p("...abb", e("dcak,ijab->ijkbdc", vvvo, t2)))  # d20_ooovvv
    hhEE += e("baij->ijba", vvoo)  # d21_oovv
    hhEE -= 1./2 * p("ab..", p("..ab", e("kcba,ia,jb,kd->ijcd", ovvv, t1, t1, t1)))  # d22_oovv
    hhhEEE += 1./2 * p("abc...", p("...abb", e("kcba,ia,jb,kled->iljced", ovvv, t1, t1, t2)))  # d23_ooovvv
    hhhEEE -= p("aab...", p("...abc", e("ibca,ja,id,klce->kljbde", ovvv, t1, t1, t2)))  # d24_ooovvv
    hE -= e("ibca,ia,jc->jb", ovvv, t1, t1)  # d25_ov
    hhEE += p("ab..", p("..ab", e("jcdb,kd,jiba->ikca", ovvv, t1, t2)))  # d26_oovv
    hhhEEE -= p("aab...", p("...abb", e("icba,lb,ijkaed->jklced", ovvv, t1, t3)))  # d27_ooovvv
    hhEE += 1./2 * p("..ab", e("kadc,kb,ijdc->ijab", ovvv, t1, t2))  # d28_oovv
    hhhEEE -= 1./2 * p("...abc", e("ibed,ia,kljedc->kljbca", ovvv, t1, t3))  # d29_ooovvv
    hhEE -= p("..ab", e("icba,ia,jkbd->jkcd", ovvv, t1, t2))  # d30_oovv
    hhhEEE -= p("...abb", e("iabc,ic,kljbed->kljaed", ovvv, t1, t3))  # d31_ooovvv
    hhhEEE -= p("abb...", p("...abc", e("ibac,jkcd,ilae->ljkbed", ovvv, t2, t2)))  # d32_ooovvv
    hhhEEE += 1./2 * p("abb...", p("...abb", e("iacb,iled,kjcb->lkjaed", ovvv, t2, t2)))  # d33_ooovvv
    hE += 1./2 * e("icba,ijba->jc", ovvv, t2)  # d34_ov
    hhEE += 1./2 * p("..ab", e("kadc,kijdcb->ijab", ovvv, t3))  # d35_oovv

HHee += 1./4 * e("lmed,ikjacb,lmieda->kjcb", oovv, a3, t3)  # d209_oovv
    HHee -= p("..ab", e("jkai,ib->jkab", oovo, a1))  # d210_oovv
    He += e("ikaj,jb,ib->ka", oovo, a1, t1)  # d211_ov
    He += e("jiak,kb,ia->jb", oovo, a1, t1)  # d212_ov
    HHHeee -= p("...abb", p("aab...", e("jkai,ilcb->jklacb", oovo, a2)))  # d213_ooovvv
    HHee -= e("klci,ijba,jc->klba", oovo, a2, t1)  # d214_oovv
    He += e("jkal,licb,ia,kc->jb", oovo, a2, t1, t1)  # d215_ov
    HHee -= p("..ab", p("ab..", e("kjai,ilbc,jb->klac", oovo, a2, t1)))  # d216_oovv
    He += 1./2 * e("lick,kjab,ia,lb->jc", oovo, a2, t1, t1)  # d217_ov
    He += e("kjai,ilbc,kb,ja->lc", oovo, a2, t1, t1)  # d218_ov
    HHee -= p("ab..", e("kicl,ljba,kc->ijba", oovo, a2, t1))  # d219_oovv
    He += 1./2 * e("jkai,ilcb,jlcb->ka", oovo, a2, t2)  # d220_ov
    He -= e("klcj,jiab,lica->kb", oovo, a2, t2)  # d221_ov
    He -= 1./4 * e("jkai,ilcb,jkcb->la", oovo, a2, t2)  # d222_ov
    He -= 1./2 * e("klbj,jica,klbc->ia", oovo, a2, t2)  # d223_ov
    HHHeee += p("aab...", e("ijdl,lkmcba,md->ijkcba", oovo, a3, t1))  # d224_ooovvv
    HHee += p("ab..", e("mldj,jkicba,id,mc->lkba", oovo, a3, t1, t1))  # d225_oovv
    He += 1./2 * e("ijak,kmlcbd,ic,ma,jd->lb", oovo, a3, t1, t1, t1)  # d226_ov
    He -= 1./2 * e("jmal,lkicbd,ia,jkcb->md", oovo, a3, t1, t2)  # d227_ov
    He += 1./4 * e("klbj,jimdca,mb,kldc->ia", oovo, a3, t1, t2)  # d228_ov
    HHHeee += p("...abb", p("abb...", e("ildm,mkjacb,ia->lkjdcb", oovo, a3, t1)))  # d229_ooovvv
    HHee += 1./2 * p("..ab", e("imbl,ljkdac,ia,md->jkbc", oovo, a3, t1, t1))  # d230_oovv
    HHee += e("imdl,ljkacb,ia,md->jkcb", oovo, a3, t1, t1)  # d231_oovv
    He += 1./2 * e("lmdi,ikjacb,ma,kjdb->lc", oovo, a3, t1, t2)  # d232_ov
    He += 1./2 * e("kiaj,jlmdcb,ib,kmdc->la", oovo, a3, t1, t2)  # d233_ov
    He -= e("ikbj,jmldac,ia,klbc->md", oovo, a3, t1, t2)  # d234_ov
    HHHeee += p("abb...", e("ildm,mkjcba,ld->ikjcba", oovo, a3, t1))  # d235_ooovvv
    He += 1./2 * e("lmdi,ijkbac,md,ljba->kc", oovo, a3, t1, t2)  # d236_ov
    HHee -= 1./2 * e("lmdi,ikjbac,kjdc->lmba", oovo, a3, t2)  # d237_oovv
    HHee -= 1./2 * p("..ab", p("ab..", e("jiak,kmldcb,imdc->jlab", oovo, a3, t2)))  # d238_oovv
    HHee -= p("ab..", e("mldi,ikjcba,mjda->lkcb", oovo, a3, t2))  # d239_oovv
    HHee -= 1./4 * p("..ab", e("klam,mijbdc,kldc->ijab", oovo, a3, t2))  # d240_oovv

hE += e("ia,ijab->jb", ov, t2)  # d8_ov
    hhEE += 1./2 * p("ab..", e("cbad,ja,id->jicb", vvvv, t1, t1))  # d9_oovv
    hhEE += 1./2 * e("dcba,ijba->ijdc", vvvv, t2)  # d10_oovv
    hhEE -= p("ab..", e("baci,jc->ijba", vvvo, t1))  # d11_oovv
    hhEE += e("baij->ijba", vvoo)  # d12_oovv
    hhEE -= 1./2 * p("ab..", p("..ab", e("icdb,ia,jb,kd->kjac", ovvv, t1, t1, t1)))  # d13_oovv
    hE += e("jbca,ia,jc->ib", ovvv, t1, t1)  # d14_ov
    hhEE += p("ab..", p("..ab", e("kacd,jd,kicb->ijba", ovvv, t1, t2)))  # d15_oovv
    hhEE += 1./2 * p("..ab", e("kcba,kd,ijba->ijcd", ovvv, t1, t2))  # d16_oovv
    hhEE -= p("..ab", e("kadc,kc,ijbd->ijba", ovvv, t1, t2))  # d17_oovv
    hE += 1./2 * e("icba,ijba->jc", ovvv, t2)  # d18_ov
    hhEE += p("ab..", p("..ab", e("kcaj,ia,kb->ijcb", ovvo, t1, t1)))  # d19_oovv
    hE += e("jabi,jb->ia", ovvo, t1)  # d20_ov
    hhEE += p("ab..", p("..ab", e("ibaj,ikac->kjcb", ovvo, t2)))  # d21_oovv
    hhEE += p("..ab", e("kbij,ka->ijba", ovoo, t1))  # d22_oovv
    hhEE += 1./4 * p("ab..", p("..ab", e("jlca,ia,jb,kc,ld->kibd", oovv, t1, t1, t1, t1)))  # d23_oovv
    hhEE -= 1./4 * p("ab..", e("jkda,ia,ld,jkcb->ilcb", oovv, t1, t1, t2))  # d24_oovv
    hE += e("jkca,ia,jb,kc->ib", oovv, t1, t1, t1)  # d25_ov
    hhEE -= p("ab..", p("..ab", e("kldc,jc,la,kidb->ijba", oovv, t1, t1, t2)))  # d26_oovv
    hhEE += p("ab..", e("licd,lc,kd,ijba->jkba", oovv, t1, t1, t2))  # d27_oovv
    hE -= 1./2 * e("jkbc,ic,jkba->ia", oovv, t1, t2)  # d28_ov
    hhEE -= 1./4 * p("..ab", e("klba,kc,ld,ijba->ijdc", oovv, t1, t1, t2))  # d29_oovv
    hhEE += p("..ab", e("lkcd,ka,lc,ijdb->ijba", oovv, t1, t1, t2))  # d30_oovv
    hE -= 1./2 * e("kjcb,ja,kicb->ia", oovv, t1, t2)  # d31_ov
    hE += e("jiba,jb,ikac->kc", oovv, t1, t2)  # d32_ov
    hhEE -= 1./2 * p("..ab", e("ijab,klbc,ijad->kldc", oovv, t2, t2))  # d33_oovv
    hhEE += 1./4 * e("ijba,klba,ijdc->kldc", oovv, t2, t2)  # d34_oovv
    hhEE += 1./2 * p("ab..", e("jiba,ikba,jldc->kldc", oovv, t2, t2))  # d35_oovv
    hhEE += 1./2 * p("ab..", p("..ab", e("ljdb,jiba,lkdc->ikac", oovv, t2, t2)))  # d36_oovv
    hhEE -= 1./2 * p("ab..", p("..ab", e("ijcl,ia,jb,kc->lkab", oovo, t1, t1, t1)))  # d37_oovv
    hhEE -= 1./2 * p("ab..", e("ijak,la,ijcb->klcb", oovo, t1, t2))  # d38_oovv
    hE += e("jkbi,kb,ja->ia", oovo, t1, t1)  # d39_ov