Basis = {INT["PL"][1] -> -eps^2 (m2 - s13 - s23) PL[2, 0, 2, 0, 0, 0, 1, 0, 0], INT["PL"][2] -> eps^2 m2 PL[0, 2, 2, 0, 0, 0, 0, 1, 0], INT["PL"][3] -> -eps^2 s23 PL[0, 0, 2, 0, 2, 0, 0, 1, 0], INT["PL"][4] -> eps^3 (s13 + s23) PL[1, 0, 2, 0, 0, 0, 1, 1, 0], INT["PL"][5] -> -eps^3 (m2 - s13 - s23) PL[1, 0, 2, 0, 1, 1, 0, 0, 0], INT["PL"][6] -> eps^3 (m2 - s23) PL[1, 0, 2, 0, 1, 0, 0, 1, 0], INT["PL"][7] -> eps^3 (s13 + s23) PL[0, 1, 2, 0, 0, 0, 1, 1, 0], INT["PL"][8] -> eps^2 (-m2 + s13 + s23)^2 PL[1, 1, 0, 0, 0, 2, 2, 0, 0], INT["PL"][9] -> -eps^2 m2 (m2 - s13 - s23) PL[1, 1, 0, 0, 0, 0, 2, 2, 0], INT["PL"][10] -> eps^3 (m2 - s13 - s23) s23 PL[1, 0, 2, 0, 1, 1, 0, 1, 0], INT["PL"][11] -> eps^4 s13 PL[0, 1, 1, 0, 1, 1, 0, 1, 0], INT["PL"][12] -> eps^3 (m2 - s13 - s23) s23 PL[1, 0, 2, 0, 1, 0, 1, 1, 0], INT["PL"][13] -> -eps^4 (m2 - s13) PL[1, 0, 1, 0, 1, 0, 1, 1, 0], INT["PL"][14] -> eps^4 (s13 + s23) PL[1, 1, 1, 0, 0, 0, 1, 1, 0], INT["PL"][15] -> eps^3 (m2 - s13 - s23) s23 PL[0, 1, 2, 0, 1, 0, 1, 1, 0], INT["PL"][16] -> eps^4 (m2 - s13 - s23) (-m2 + s23) PL[1, 1, 1, 0, 1, 0, 1, 1, 0], INT["PL"][17] -> -eps^4 s23 (-m2 + s13 + s23)^2 PL[1, 1, 1, 0, 1, 1, 1, 1, 0], INT["PL"][18] -> eps^4 (s13 + s23) (-m2 + s13 + s23) PL[1, 1, 1, -1, 1, 1, 1, 1, 0]} Masters = {PL[2, 0, 2, 0, 0, 0, 1, 0, 0], PL[0, 2, 2, 0, 0, 0, 0, 1, 0], PL[0, 0, 2, 0, 2, 0, 0, 1, 0], PL[1, 0, 2, 0, 0, 0, 1, 1, 0], PL[1, 0, 2, 0, 1, 1, 0, 0, 0], PL[1, 0, 2, 0, 1, 0, 0, 1, 0], PL[0, 1, 2, 0, 0, 0, 1, 1, 0], PL[1, 1, 0, 0, 0, 2, 2, 0, 0], PL[1, 1, 0, 0, 0, 0, 2, 2, 0], PL[1, 0, 2, 0, 1, 1, 0, 1, 0], PL[0, 1, 1, 0, 1, 1, 0, 1, 0], PL[1, 0, 2, 0, 1, 0, 1, 1, 0], PL[1, 0, 1, 0, 1, 0, 1, 1, 0], PL[1, 1, 1, 0, 0, 0, 1, 1, 0], PL[0, 1, 2, 0, 1, 0, 1, 1, 0], PL[1, 1, 1, 0, 1, 0, 1, 1, 0], PL[1, 1, 1, 0, 1, 1, 1, 1, 0], PL[1, 1, 1, -1, 1, 1, 1, 1, 0]};