Print[ "Peng4BSM@LO 1.1 - Penguin Diagrams for Beyond the Standard Model (SM) at Leading Order by A.V. Bednyakov and S.H.Tanyildizi"]

(* Choose whether to use FeynCalc *)
If[ TrueQ[$UseFeynCalc], 
	Print["FeynCalc version"];
	 $LoadPhi = True; 
	 $LoadFeynArts = True; 
	 $PengNeededContexts = { "HighEnergyPhysics`FeynCalc`", 
	 			"HighEnergyPhysics`Phi`", 
				"HighEnergyPhysics`FeynCalc`Loop`", 
				"HighEnergyPhysics`FeynCalc`FeynAmpList`", 
				"HighEnergyPhysics`FeynCalc`ChiralityProjector`", 
				"HighEnergyPhysics`FeynCalc`NonCommutative`", 
				"HighEnergyPhysics`FeynCalc`DiracMatrix`", 
				"HighEnergyPhysics`FeynCalc`MetricTensor`", 
				"HighEnergyPhysics`FeynCalc`FourVector`", 
				"HighEnergyPhysics`FeynArts`"},
	(* else - default *)
	Print["FeynArts version"];
	Needs["FeynArts`", "FeynArts`FeynArts`"]; $PengNeededContexts = "FeynArts`";
	(* level of logging in FeynArts *)
	FeynArts`$Verbose = 0;
	FeynArts`$FAVerbose = 0; (* FeynArts 3.9 *)
	];


BeginPackage["Peng4BSMatLO`",Evaluate[ $PengNeededContexts]];


(*
DebugPrint = Print; 
*)

PenguinTopologies::usage = "PenguinTopologies is a list of  topologies in FeynArts notations for Penguin-type diagrams";

PengInsertFields::usage = "PengInsertFields[{InF} -> {OutF, OutV}, Model->MOD, options]. Similar to FeynArts function InsertFields, is used to construct all penguin-type diagrams in a particular model (MOD) for a particular set of external fields (InF, OutF, OuV}. Accepts the same set of options as InsertFields";

PengCreateFeynAmp::usage = "PengCreateFeynAmp[diagrams, options]. Similar to FeynArts function CreateFeynAmp. Produces analytic expressions for amplitudes, given the diagrams (diagrams)  created with the help of InsertFields. Accepts the same options as CreateFeynAmp.";

ExtractPenguinSubsRules::usage = "ExtractPenguinSubsRules[ amps ] produces a list of subsitution rules for each diagram (amplitude) generated by PengCreateFeynAmp.  The rules specifies the actual couplings for each Generic diagram (amplitude). In addition information about the required Generic diagram is stored. Can be used together with SubstituteMassesAndFeynmanRules to obtain final analytic expressions in the considered model"; 

SubstituteMassesAndFeynmanRules::usage = "SubstituteMassesAndFeynmanRules[OP_][rules_] gives a contribution to the coefficient function of the operator specified by OP, given the diagram substition rules generated by ExtractPenguinSubsRules"; 


PengFeynAmpList::usage = "A container similar to FeynAmpList, but with different topology IDs";

PenguinSubsRules::usage = "A container PenguinSubsRules[InF, OutF, OutV][ diagram subst rules ] with substitution rules for diagrams generated by PengCreateFeynAmp";


FindDiagramContributionByNumber::usage = "A simple helper function FindDiagramContributionByNumber[Expr,No] - given the list Expr which has the same hierarchical structure   as an output of (Peng)CreateFeynAmp and the diagramm number returns corresponding element";


eps::usage = "Dimensional regularization parameter D = 4 - 2 eps";

OP::usage = " OP = \{ \"OpL\" | \"OpR\" | \"MonOpL0\" | \"MonOpR0\" | \"MonOpL2\" | \"MonOpR2\" | \"DipOpL1\" | \"DipOpR1\" \} - operator type";

CommonMass::usage = "A mass which is used to form dimensionless ratios, CommonMass = MW by default"; 


(* hide details by redefining format*)

Format[ PenguinSubsRules[penginfo__][subrules__]] := PenguinSubstitutionRules[penginfo][\[Ellipsis]];
Format[ PengFeynAmpList[penginfo__][data__]] := PenguinFeynAmpList[penginfo][\[Ellipsis]];


UnitarityCKM::usage = "UnitarityCKM[CKMHEAD,NGEN] returns rules for (non-diagonal) unitarity relations for CKMHEAD unitarity matrix of dimension NGEN";

(*
ExplicitSummation::usage = "An option for SubstituteMassesAndFeynmanRules. If set to True, All the FeynArts SumOver will be explicitly summed ";
*)

XXX::usage = "XXX[m1/CommonMass] - just a ratio of m1/CommonMass. See definition of CommonMass";

CollectSumOver::usage = "CollectSumOver[ expr ] converts recurrsively the expressions like (a[i]*SumOver[i,1,N] + b[i]*SumOver[i,1,N] + ..) to IndexSum[ a[i] + b[i] + .., {i,1,N]";

ExpandInSmallMasses::usage = "ExpandInSmallMasses[expr, {m1,m2,...}, order] expands expression expr in small masses up to the order order";

Begin["Private`"];

Off[General::shdw];

If[ TrueQ[ Global`$UseFeynCalc ],
	ChirProj = ChiralityProjector;
	FourVec = FourVector;
	NonComm = NonCommutative;
	DiracMat = DiracMatrix; 
	MetTen = MetricTensor,
(* else *)
	ChirProj = Global`ChiralityProjector;
	FourVec = Global`FourVector;
	NonComm = NonCommutative;
	DiracMat = Global`DiracMatrix; 
	MetTen = Global`MetricTensor;
];	

On[General::shdw];

XXX[1] = 1;

CommonMass = Global`MW;

PenguinTopologies = 
 TopologyList[Topology[1][Propagator[Incoming][Vertex[1][1], Vertex[3][4]], 
  Propagator[Outgoing][Vertex[1][2], Vertex[3][5]], Propagator[Outgoing][Vertex[1][3], Vertex[3][6]], 
  Propagator[Loop[1]][Vertex[3][4], Vertex[3][5]], Propagator[Loop[1]][Vertex[3][4], Vertex[3][6]], 
  Propagator[Loop[1]][Vertex[3][5], Vertex[3][6]]], 
(* self energy insertion in the vector boson leg -->    

  Topology[2][Propagator[Incoming][Vertex[1][1], Vertex[3][4]], 
  Propagator[Outgoing][Vertex[1][2], Vertex[3][4]], Propagator[Outgoing][Vertex[1][3], Vertex[3][5]], 
  Propagator[Internal][Vertex[3][4], Vertex[3][6]], Propagator[Loop[1]][Vertex[3][5], Vertex[3][6]], 
  Propagator[Loop[1]][Vertex[3][5], Vertex[3][6]]], 
*)
 Topology[2][Propagator[Incoming][Vertex[1][1], Vertex[3][4]], 
  Propagator[Outgoing][Vertex[1][2], Vertex[3][5]], Propagator[Outgoing][Vertex[1][3], Vertex[3][4]], 
  Propagator[Internal][Vertex[3][4], Vertex[3][6]], Propagator[Loop[1]][Vertex[3][5], Vertex[3][6]], 
  Propagator[Loop[1]][Vertex[3][5], Vertex[3][6]]], 
 Topology[2][Propagator[Incoming][Vertex[1][1], Vertex[3][4]], 
  Propagator[Outgoing][Vertex[1][2], Vertex[3][5]], Propagator[Outgoing][Vertex[1][3], Vertex[3][5]], 
  Propagator[Internal][Vertex[3][5], Vertex[3][6]], Propagator[Loop[1]][Vertex[3][4], Vertex[3][6]], 
  Propagator[Loop[1]][Vertex[3][4], Vertex[3][6]]]];


(* auxilary mass rule *)


(* topology signature *)
TopoSignature[x : Topology[_][___]] := (x /. Propagator[__][Vertex[_][v1_],Vertex[_][v2_],___]:>{v1,v2});

(* penguin signature - internal particles types *)
PengSignature[x : FeynmanGraph[__][___]] := Map[ Last, (List @@ x)[[3 ;;]] /. V[__]->V /. S[__]->S ];

(* define mass rules *)

AuxMassRule = {
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, S, F, F}] = {Mass[F[Index[Generic, 5]], Loop] -> m1, Mass[F[Index[Generic, 6]], Loop] -> m2, Mass[S[Index[Generic, 4]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, F, S, S}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, V, F, F}] = {Mass[F[Index[Generic, 5]], Loop] -> m1, Mass[F[Index[Generic, 6]], Loop] -> m2, Mass[V[Index[Generic, 4]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, F, S, V}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, F, V, S}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 6]], Loop] -> m2, Mass[V[Index[Generic, 5]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {V, F, V, V}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[V[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[2]]], {V, F, F, S}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[2]]], {V, F, F, V}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[3]]], {V, F, F, S}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[3]]], {V, F, F, V}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3},
(* scalar legs *)
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, S, F, F}] = {Mass[F[Index[Generic, 5]], Loop] -> m1, Mass[F[Index[Generic, 6]], Loop] -> m2, Mass[S[Index[Generic, 4]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, F, S, S}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, V, F, F}] = {Mass[F[Index[Generic, 5]], Loop] -> m1, Mass[F[Index[Generic, 6]], Loop] -> m2, Mass[V[Index[Generic, 4]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, F, S, V}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, F, V, S}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[S[Index[Generic, 6]], Loop] -> m2, Mass[V[Index[Generic, 5]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[1]]], {S, F, V, V}] = {Mass[F[Index[Generic, 4]], Loop] -> m1, Mass[V[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[2]]], {S, F, F, S}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[2]]], {S, F, F, V}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[3]]], {S, F, F, S}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[S[Index[Generic, 6]], Loop] -> m3}, 
 MassRule[TopoSignature[ PenguinTopologies[[3]]], {S, F, F, V}] = {Mass[F[Index[Generic, 4]], Internal] -> m1, Mass[F[Index[Generic, 5]], Loop] -> m2, Mass[V[Index[Generic, 6]], Loop] -> m3}
 }

(*
 *
 * PengInsertFields
 *
 *)


PengInsertFields[{InF_} -> {OutF_,OutV_}, Model -> MOD_, opts___] := InsertFields[ PenguinTopologies, {InF} -> {OutF, OutV}, Model -> MOD, opts];  


(*
 *
 * PengCreateFeynAmp
 *
 *)

(* with fixed ids *)

PengCreateFeynAmp[di:TopologyList[__][__], opt___] := Module[ { iHead,iDs, tmpAMP},
(* assumption that the inserted amplitudes at generic level are generated in the same order *)
		iDs = Flatten[ 
		Map[Function[{x}, {TopoSignature[First[#]], PengSignature[x]}] 
		/@ (List @@ Last[#]) &, List @@ PickLevel[Generic][di]] , 1];	
		
		tmpAMP = CreateFeynAmp[ di, opt ];	
		If [Length[ tmpAMP ] == 0, Return[ $Failed ],
		(* else *)
		iHead = Head[ tmpAMP ]; (* save head *)
		tmpAMP = MapThread[ ReplacePart[ #1, 1->#2] &, { List @@ tmpAMP, iDs} ];
		tmpAMP = iHead @@ tmpAMP; (* restore head *)
		Return[ tmpAMP /. FeynAmpList -> PengFeynAmpList ];
		];
];


(*
 *
 * ExtractPenguinSubsRules
 *
 *)

ExtractPenguinSubsRules[FAL:PengFeynAmpList[__][__]] :=  Module[{tmp, mleft, penginfo}, 
		tmp = Map[ {(* topoid *) First[#], (* subsrules *) Last[#] } &, List @@  FAL] /.  (x_ -> Insertions[Classes][ y__]) :> ((x -> #) & /@ Flatten[ List @@ # & /@ (Last /@ {y}),1] /; Head[Last[{y}[[1]]]] == Insertions[Particles]) /. (x_ -> Insertions[Classes][y___]) :> Map[x -> # &, {y}];


(* use TopoID to substitute masses to aux ones *)
		tmp = Map[{First[#],( Last[#] /. MassRule[ Sequence @@ First[#] ])}  &, tmp];
(* Guarding kinematic structure of Generic couplings *)
		tmp =  tmp /. RelativeCF -> RCF 
                      (*     
		          /. G[l_][c_][fff___][x_] :> 
			      G[l][c][fff][ToString[InputForm[ 
			x /. {ChirProj[-1]->DiracGamma[7],
			      ChirProj[+1]->DiracGamma[6],
			      DiracMat[y_]:> DiracGamma[LorentzIndex[y]]}
				 ]]]
			*)
			;
		(* check whether all the initial masses are substituted with
		   m1, m2, m3 correctly *)
		mleft = Cases[ tmp, Mass[__,Loop | Internal], Infinity];
		If [ Length[ mleft ] > 0, Return[ $Failed ], 
		(* else *)
					  (* extract external fields from Process FeynArts Info *)
					  penginfo = Flatten[List @@ Map[ First, Process /. (List @@ Head[ FAL ]), {2}]];
					  Return[ PenguinSubsRules[ Sequence @@ penginfo] @@ tmp ];
		];
]; 

(*
 *
 * CKM unitarity helpers
 *
 *)

UnitarityCKM[CKMHEAD_:CKM, NGEN_:3 ] = 
	{CKMHEAD[x_, 1] Conjugate[ CKMHEAD[y_, 1]] :> 
     -Sum[CKMHEAD[x, j] Conjugate[ CKMHEAD[y , j]], {j, 2, NGEN}] /; x != y, 
 	 CKMHEAD[1, x_] Conjugate[ CKMHEAD[1, y_]] :> 
     -Sum[CKMHEAD[j, x] Conjugate[ CKMHEAD[j, y ]], {j, 2, NGEN}] /; x != y
     			}

ExplicitUnitarity[CKMHEAD_:CKM, DIM_:3 ] = 
	{CKMHEAD[x_, 1] Conjugate[ CKMHEAD[y_, 1]] :> 
     -Sum[CKMHEAD[x, j] Conjugate[ CKMHEAD[y , j]], {j, 2, DIM}] /; x != y, 
 	 CKMHEAD[1, x_] Conjugate[ CKMHEAD[1, y_]] :> 
     -Sum[CKMHEAD[j, x] Conjugate[ CKMHEAD[j, y ]], {j, 2, DIM}] /; x != y,
	CKMHEAD[x_, 1] Conjugate[ CKMHEAD[y_, 1]] :> 
     1 - Sum[CKMHEAD[x, j] Conjugate[ CKMHEAD[y , j]], {j, 2, DIM}] /; x == y, 
 	 CKMHEAD[1, x_] Conjugate[ CKMHEAD[1, y_]] :> 
     1 - Sum[CKMHEAD[j, x] Conjugate[ CKMHEAD[j, y ]], {j, 2, DIM}] /; x == y
     			}

(*
 *
 * CollectSumOver
 *
 *)


CollectSumOver[expr_] := If[ FreeQ[ expr, SumOver[__]], expr, 
			 (* else *)
	(* use condition cond, if defined *)
	Collect[ expr, SumOver[__]] /. (x_*SumOver[j_, r_,cond_:True]) :> (IndexSum[If[cond, Evaluate[CollectSumOver[x]],0], {j, 1, r}]) 
	(* //. (* collect nested IndexSum *)  IndexSum[IndexSum[y__, z_], w__] :> IndexSum[y, z, w] *)
	] ;



(*
 *
 * SubstituteMassesAndFeynmanRules
 *
 *)

Options[ SubstituteMassesAndFeynmanRules ] = { };

SubstituteMassesAndFeynmanRules[dia_, fr_List, options:OptionsPattern[]] := 
  Module[{diacu = dia, tmpmasssubst,masssubst (* = {m1,m2,m3} /. fr[[1 ;; 3]] *), frsubst  (*  = fr[[4 ;;]] *),
     idmasses, okmasses, expinfo, seriesinfo, finsubst, rulEq,removeSumOverRule, restrictSumOverRule}, 
     tmpmasssubst = Cases[fr,HoldPattern[(m1|m2|m3 -> _)]];
     If[ Length[tmpmasssubst] > 0,
	masssubst = {m1,m2,m3} /. tmpmasssubst;
	frsubst = Complement[ fr, tmpmasssubst],
     (* else *) 
	Print["Someting Wrong with substitution rules:", fr]; 
	Return[$Failed];
	];
DebugPrint[ FullForm[masssubst], "-->", fr, "-->", Cases[fr,HoldPattern[(m1|m2|m3 -> _)]],"-->",Complement[fr,Cases[fr,HoldPattern[(m1|m2|m3 -> _)]]] ];     

(* find equal masses: masses can become equal upon summation over some Index[....]  *)

	idmasses = Gather[masssubst, And[#1 =!= #2, Head[#1] === Head[#2], Head[#1] =!= Symbol, (* classes index may be substituted at particles level *) Not[FreeQ[#1,Index[__]]]] &];
	(* idmasses = Gather[masssubst, And[Head[#1] === Head[#2], Head[#1] =!= Symbol] &]; *)
	idmasses = Select[idmasses,Length[#] > 1 &];	
	condNon = {};
	If[ Length[idmasses] > 0, 
	  DebugPrint[ "begin", InputForm[idmasses]];
			idmasses = Map[List  @@ # & , idmasses, {2}]; (* remove head *)
	  DebugPrint[InputForm[idmasses]];
			idindex = Map[Intersection @@ # &, idmasses];
			nonidindex = MapThread[ Map[Function[{x}, Complement[x, #2]], #1] &, {idmasses, idindex}];

			DebugPrint["->", idindex, nonidindex];
			Assert[ Length[ nonidindex ] > 0];

			nonidindex = Flatten[ First[ nonidindex ] ];
			
			condNon = Unequal @@ nonidindex; 
			rulEq = Rule @@ nonidindex;  
			removeSumOverRule = (SumOver[First[nonidindex],__]:>1);
			restrictSumOverRule = SumOver[Last[nonidindex],x__]:> Evaluate[SumOver[ Last[ nonidindex],x, condNon]];
  
			DebugPrint[ removeSumOverRule, restrictSumOverRule];
	  ];
	  eqdiacu = 0;
	  If [ Length[ condNon ] > 0, 
	  		eqdiacu = Evaluate[dia[ Sequence @@ (masssubst /. rulEq) ]] /. ( frsubst /. removeSumOverRule /. rulEq);
			(*
    eqdiacu =  CollectSumOver[eqdiacu] //. (* collect nested IndexSum *)  IndexSum[IndexSum[y__, z_], w__] :> IndexSum[y, z, w] *);
	  DebugPrint["RRR:", rulEq, removeSumOverRule, ":->", (frsubst /. removeSumOverRule /. rulEq )]; 
	  noneqdia = Evaluate[dia[ Sequence @@ (masssubst) ]] /. ( frsubst ) /. restrictSumOverRule;
	  DebugPrint[ "end:", eqdiacu];
	
	  diacu = eqdiacu + noneqdia,
	  (* else: all masses are explicitly specified or belong to different classes *) 
    	  diacu = Evaluate[dia[Sequence @@ masssubst ]];
    	  diacu = diacu /. frsubst;
	  ];

	  DebugPrint[ "end"];

    Return[diacu ]
];


SubstituteMassesAndFeynmanRules[OP_:"MonOpL0"][InF_,OutF_,OutV_][{graphid:{_,{(* external boson leg*)_,_,_,_}},substs__}, options:OptionsPattern[]] := 
  Module[{(* generic diagrams to susbstitute *)
  	gdia = ToExpression["Private`PenguinHelper" <> OP][Sequence @@ graphid][InF,OutF,OutV]}, 
         Return[ Map[ SubstituteMassesAndFeynmanRules[ gdia, Thread[#], options ] &, substs]]; 
];

SubstituteMassesAndFeynmanRules[OP_:"MonOpL0"][PenguinSubsRules[InF_,OutF_,OutV_][list__],options:OptionsPattern[]] := 
           Return[ Map[ SubstituteMassesAndFeynmanRules[OP][InF,OutF,OutV][#,options ] &, {list}]]; 


(*
 *
 * FindDiagramContributionByNumber
 *
 *)

FindDiagramContributionByNumber[contribs_List,diaNo_?IntegerQ] := Module[{fl = Flatten[contribs]}, If[ 1 <= diaNo <= Length[ fl ], Return[ fl [[ diaNo ]]], (* else *) Return[ $Failed ]]];

(*
 *
 * ExpandInSmallMasses
 *
 *)

(*
ExpandInSmallMasses[expr_,order_:0] := Module[{smallmasses}, 
		(* extract small masses from definititions like SmallMass[ MC ] = True *)
		smallmasses = Cases[First /@ DownValues[SmallMass], SmallMass[x__] :> x, Infinity];
	      	Return[ ExpandInSmallMasses[ expr, smallmasses, order] ];
		];	
*)
ExpandInSmallMasses[expr_, smallmasses_List, order_:0] := Module[ {poco, tmp}, 
			tmp = expr /. Map[ # -> poco # &, smallmasses];
			tmp = Normal[Series[ tmp, {poco, 0,order}]] /. poco -> 1;
			Return[ tmp ]
			];
		

(*
 *
 * Templates for Generic Wilson coefficients
 *
 *)
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^6 - 
          4*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 5*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          XXX[m3/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/192)*(3*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
           (2*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/64)*XXX[m1/CommonMass]^2*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
             XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
             XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/96)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
              5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m2/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6 + 
          3*CommonMass^2*XXX[m2/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[OutF]^2 - 
            6*CommonMass^2*XXX[m2/CommonMass]^2) - 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 5*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 + 
          3*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*(TheMass[OutF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/576)*(-9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 
            2*TheMass[OutF]^2 - 9*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (-15*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(-6*TheMass[InF]^2 + 11*TheMass[OutF]^2 + 
            9*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
              TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 
            2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         ((I/192)*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(15*TheMass[InF]^2 - 
              5*TheMass[OutF]^2 - 24*CommonMass^2*XXX[m2/CommonMass]^2) - 2*XXX[m1/CommonMass]^4*
             (TheMass[OutF]^2 - 6*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (3*TheMass[InF]^2 + TheMass[OutF]^2 + 12*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*XXX[m2/CommonMass]*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           ((I/288)*TheMass[InF]*TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 
              7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 2*XXX[m2/CommonMass]^4))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/64)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 
          3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^4*(TheMass[OutF]^2 + 3*CommonMass^2*XXX[m2/CommonMass]^2 + 
            6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
         (XXX[m2/CommonMass]^2*(3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (-3*CommonMass^2*XXX[m2/CommonMass]^4 - 3*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (3*CommonMass^2*XXX[m3/CommonMass]^8 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
            2*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
           (-(TheMass[InF]^2*XXX[m3/CommonMass]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 - TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^4*(2*TheMass[InF]^2 + TheMass[OutF]^2 - 
              6*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-5*(TheMass[InF]^2 + TheMass[OutF]^2) + 12*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) + ((I/192)*(-3*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + 
          XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*
             (-TheMass[InF]^2 + TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              3*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (6*CommonMass^2*XXX[m2/CommonMass]^6 + 2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 
              9*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(2*(TheMass[InF]^2 + 
                TheMass[OutF]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^4 + 
            3*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (4*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^4))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*
           (-2*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m1/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m1/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*
           (TheMass[OutF]^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^2) + 
              (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) - 
            XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m2/CommonMass]^4 + 3*(-TheMass[InF]^2 + 
                TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
              CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
                2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m3/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
              XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
                TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
             (XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 4*CommonMass^2*
                 XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -3*(TheMass[InF]^2 + TheMass[OutF]^2) + 8*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3) + ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             XXX[m2/CommonMass]^6)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/96)*TheMass[InF]*
             TheMass[OutF]*XXX[m3/CommonMass]^2*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(5*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2) + ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(
                3*XXX[m2/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + 
              XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
             XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                -2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
        ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 - 
           2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4 + 
           6*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/48)*Log[XXX[m1/CommonMass]]*(3*CommonMass^2*XXX[m1/CommonMass]^8 - 12*CommonMass^2*XXX[m1/CommonMass]^6*
            XXX[m3/CommonMass]^2 + 15*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 
           2*TheMass[InF]^2*XXX[m3/CommonMass]^6 - 6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
            (TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        ((I/576)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 + 
             6*TheMass[OutF]^2 - 45*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(22*TheMass[InF]^2 - 12*TheMass[OutF]^2 - 
             27*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (-14*TheMass[InF]^2 - 30*TheMass[OutF]^2 + 63*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/576)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^4 - 
             22*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 5*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
          ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
         (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
        ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^2*
            (2*(TheMass[InF]^2 + TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/192)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*
            (4*(TheMass[InF]^2 + TheMass[OutF]^2) - 21*CommonMass^2*XXX[m2/CommonMass]^2) + 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) + 
             3*CommonMass^2*XXX[m2/CommonMass]^2) - XXX[m2/CommonMass]^4*
            (2*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*(-2*CommonMass^2*XXX[m1/CommonMass]^6 - 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m2/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(-2*(TheMass[InF]^2 + TheMass[OutF]^2) + 
             5*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
          ((I/96)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
             5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
           (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
          ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m1/CommonMass]]*
          TheMass[OutF]*XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 - 
        ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(-2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + 3*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + 
             XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             3*CommonMass^2*XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(2*XXX[m3/CommonMass]^2*
              (TheMass[InF]^2 + 2*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) - 
             6*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^6 + 
           2*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m1/CommonMass]^4*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 + 
             3*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*(-3*CommonMass^2*XXX[m2/CommonMass]^4 - 
             3*TheMass[InF]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + 
               TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2) + ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^8 + 
           6*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 6*CommonMass^2*XXX[m1/CommonMass]^6*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*
            (2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4) - 
           2*XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*
              (TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2*(5*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*
                XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + 
             XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 3*CommonMass^2*
                XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + 
               TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/192)*(9*CommonMass^2*XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
           2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*
            (2*(TheMass[InF]^2 + TheMass[OutF]^2) - 9*CommonMass^2*XXX[m2/CommonMass]^2 - 
             9*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
            (4*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^2 - 
             9*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (4*TheMass[InF]^2*XXX[m2/CommonMass]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^4 - 
             4*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^4) + 
           XXX[m1/CommonMass]^4*(9*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
              (-4*TheMass[InF]^2 + 4*TheMass[OutF]^2 - 27*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^4*(4*TheMass[InF]^2 - 4*TheMass[OutF]^2 - 9*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 4*
                TheMass[OutF]^2 + 27*CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
            (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
          ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
            (-3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
          ((I/48)*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^2*(XXX[m1/CommonMass]^4 - 
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
             2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/48)*Log[XXX[m1/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (3*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
              (XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m1/CommonMass]]*
            TheMass[InF]*XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
       ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^6 - 
          4*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 5*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          XXX[m3/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/96)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m3/CommonMass]^4*
           (2*(TheMass[InF]^2 + TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(TheMass[InF]^2 + 
            TheMass[OutF]^2 + 21*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/32)*XXX[m1/CommonMass]^2*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
             XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
             XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/48)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
              5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
       ((I/24)*Log[XXX[m2/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6 + 
          3*CommonMass^2*XXX[m2/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[OutF]^2 - 
            6*CommonMass^2*XXX[m2/CommonMass]^2) - 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 5*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/24)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 + 
          3*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*(TheMass[OutF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/288)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(-6*TheMass[InF]^2 + 
            11*TheMass[OutF]^2 - 45*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 2*TheMass[OutF]^2 - 
            27*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (-15*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 63*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            XXX[m1/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            XXX[m1/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         ((I/96)*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(15*TheMass[InF]^2 - 
              5*TheMass[OutF]^2 - 24*CommonMass^2*XXX[m2/CommonMass]^2) - 2*XXX[m1/CommonMass]^4*
             (TheMass[OutF]^2 - 6*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (3*TheMass[InF]^2 + TheMass[OutF]^2 + 12*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*XXX[m2/CommonMass]*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           ((I/144)*TheMass[InF]*TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 
              7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 2*XXX[m2/CommonMass]^4))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
       ((I/24)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 
          3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^4*(TheMass[OutF]^2 + 3*CommonMass^2*XXX[m2/CommonMass]^2 + 
            6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/24)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
         (XXX[m2/CommonMass]^2*(3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (-3*CommonMass^2*XXX[m2/CommonMass]^4 - 3*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/24)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (3*CommonMass^2*XXX[m3/CommonMass]^8 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
            2*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
           (-(TheMass[InF]^2*XXX[m3/CommonMass]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 - TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^4*(2*TheMass[InF]^2 + TheMass[OutF]^2 - 
              6*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-5*(TheMass[InF]^2 + TheMass[OutF]^2) + 12*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) + ((I/96)*(3*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + 
          XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(-3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*
             (2*(TheMass[InF]^2 + TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            2*XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (-6*CommonMass^2*XXX[m2/CommonMass]^6 + 2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4*(2*(TheMass[InF]^2 + 
                TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (4*TheMass[OutF]^2 + 9*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^4 - 
            3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (4*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 9*CommonMass^2*XXX[m3/CommonMass]^4))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^5)/
        (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2) - ((I/16)*TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*(-2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m1/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (TheMass[InF]^2 - TheMass[OutF]^2 + 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/16)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*
           (TheMass[OutF]^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^2) + 
              (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) - 
            XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m2/CommonMass]^4 + 3*(-TheMass[InF]^2 + 
                TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*
           (2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
              XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m3/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 
                TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -3*(TheMass[InF]^2 + TheMass[OutF]^2) + 8*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5)/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) - ((I/16)*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
             (XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^3*
                 XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2))*G[-1][0][-OutF, -F[Index[Generic, 6]], 
            V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], 
            ChirProj[-1]]] + 
         RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3) + ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             XXX[m2/CommonMass]^6)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/48)*TheMass[InF]*
             TheMass[OutF]*XXX[m3/CommonMass]^2*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(5*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2) + ((I/12)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(
                3*XXX[m2/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + 
              XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/192)*(12*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
             24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (-5*TheMass[InF]^2 + 15*TheMass[OutF]^2 + 12*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/64)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/64)*XXX[m1/CommonMass]*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 8*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/32)*XXX[m1/CommonMass]*(-(TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2) + 
           TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
            ((2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
             (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m2/CommonMass]^4) + 
             3*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*
                CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m2/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m2/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^4 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
             XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*(TheMass[InF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
             XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^
                2 + 8*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^2)/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(2*XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + 
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + 
           XXX[m3/CommonMass]^2)))*G[1][0][-F[Index[Generic, 4]], InF, 
         -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/64)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/192)*(12*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(3*TheMass[InF]^2 + TheMass[OutF]^2 - 
             24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (15*TheMass[InF]^2 - 5*TheMass[OutF]^2 + 12*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/64)*XXX[m1/CommonMass]*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 8*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]^2)/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^2*
          (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + 
           XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/32)*XXX[m1/CommonMass]*(-(TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2) + 
           TheMass[OutF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
            ((TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
             (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^4) + 
             3*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*
                CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m2/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m2/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^4 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
             XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*(TheMass[OutF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
             XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^
                2 + 8*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m1/CommonMass]]*(18*CommonMass^2*XXX[m1/CommonMass]^8 - 72*CommonMass^2*XXX[m1/CommonMass]^6*
           XXX[m3/CommonMass]^2 + (7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*XXX[m3/CommonMass]^6 - 
          3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 9*TheMass[OutF]^2 + 
            12*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 - TheMass[OutF]^2 + 15*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*(3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 + 9*TheMass[OutF]^2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) + 
          6*XXX[m1/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-7*TheMass[InF]^2 - 
            3*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/576)*(18*CommonMass^2*XXX[m1/CommonMass]^6 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (17*TheMass[InF]^2 + 93*TheMass[OutF]^2 - 81*CommonMass^2*XXX[m3/CommonMass]^2) + 
          5*XXX[m3/CommonMass]^4*(-13*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
            18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(-29*TheMass[InF]^2 - 
            21*TheMass[OutF]^2 + 54*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (((3*I)/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (((3*I)/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-I/288)*TheMass[InF]*TheMass[OutF]*
           (5*XXX[m1/CommonMass]^4 - 22*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 5*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/Pi^2 - 
       ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*(6*CommonMass^2*XXX[m1/CommonMass]^6 + 
          12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - 3*CommonMass^2*XXX[m2/CommonMass]^6 + 
          5*XXX[m1/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 - 
            3*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 - 
          6*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^2*
           (5*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       ((I/96)*(15*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*
           (10*(TheMass[InF]^2 + TheMass[OutF]^2) - 27*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m2/CommonMass]^4*(-5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
            3*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (25*(TheMass[InF]^2 + TheMass[OutF]^2) + 9*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (((3*I)/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
        (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
       (((3*I)/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            4) - ((I/4)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         ((I/48)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
            5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*
         (6*XXX[m1/CommonMass]^4*(-3*CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m3/CommonMass]^4*(XXX[m3/CommonMass]^2*(7*TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
              18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-3*TheMass[InF]^2 - 
              7*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(3*XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 + 
              7*TheMass[OutF]^2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (-7*TheMass[InF]^2 - 23*TheMass[OutF]^2 + 36*CommonMass^2*XXX[m3/CommonMass]^
                2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*
         (6*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + (-TheMass[InF]^2 + 
              TheMass[OutF]^2)*XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(18*CommonMass^2*XXX[m2/CommonMass]^4 + 
            (7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*XXX[m3/CommonMass]^2 - 
            XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 + 7*TheMass[OutF]^2 + 
              18*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (-36*CommonMass^2*XXX[m2/CommonMass]^4 - 3*(7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*
             XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*(23*TheMass[InF]^2 + 7*TheMass[OutF]^
                2 + 36*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
       ((I/96)*(15*CommonMass^2*XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
          XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(4*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
            15*CommonMass^2*XXX[m2/CommonMass]^2 - 15*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^6*((13*TheMass[InF]^2 + 7*TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
            30*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(-7*TheMass[InF]^2 - 
              13*TheMass[OutF]^2 + 30*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           (-((11*TheMass[InF]^2 + 9*TheMass[OutF]^2)*XXX[m2/CommonMass]^2) - 
            30*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(9*TheMass[InF]^2 + 
              11*TheMass[OutF]^2 + 30*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(15*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-22*TheMass[InF]^2 + 22*TheMass[OutF]^2 - 45*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m3/CommonMass]^4*(7*TheMass[InF]^2 - 7*TheMass[OutF]^2 - 
              15*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(7*TheMass[InF]^2 - 
              7*TheMass[OutF]^2 + 45*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
         (18*CommonMass^2*XXX[m1/CommonMass]^8 - 36*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           ((9*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^2 + 
            XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 9*TheMass[OutF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*
           ((7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*XXX[m3/CommonMass]^4 + 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(25*(TheMass[InF]^2 + TheMass[OutF]^
                 2) + 18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 
              7*TheMass[OutF]^2 + 36*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(18*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(7*TheMass[InF]^2 + 
              23*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*(23*TheMass[InF]^2 + 7*TheMass[OutF]^2 + 
              72*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/32)*TheMass[OutF]*XXX[m1/CommonMass]^3)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + 
          XXX[m3/CommonMass]^2)) - (((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
         XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) + (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (((3*I)/16)*Log[XXX[m1/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) + ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) - ((I/24)*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           (XXX[m1/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           (3*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[OutF]^2*
          (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*
            TheMass[OutF]*(9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
              (2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
           (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
            XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/96)*TheMass[OutF]^3)/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*XXX[m2/CommonMass]) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*
          XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 5]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/192)*TheMass[OutF]^4)/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/192)*TheMass[InF]*TheMass[OutF]^3)/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/96)*TheMass[InF]*TheMass[OutF]^2)/(CommonMass*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
           XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[OutF]^2*
          (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*
            TheMass[OutF]*(9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
              (2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
            XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[OutF]^2*
          (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 
             3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(10*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
         (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
            (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]*
            TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
              (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/(Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/96)*(TheMass[OutF]^4 - 
           6*CommonMass^2*TheMass[OutF]^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/24)*(TheMass[OutF]^3 - 3*CommonMass^2*TheMass[OutF]*XXX[m2/CommonMass]^2))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/24)*TheMass[InF]*(TheMass[OutF]^2 - 3*CommonMass^2*XXX[m2/CommonMass]^2))/
           (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/96)*TheMass[InF]*(TheMass[OutF]^3 - 6*CommonMass^2*TheMass[OutF]*
              XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            XXX[m2/CommonMass]^2))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
           -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
           ChirProj[1]]])*G[-1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], V[Index[Generic, 6]]][NonComm[
         DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[OutF]^2*
          (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 
             3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(10*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
            (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]*
            TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
              (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]*
          TheMass[OutF]*(9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[InF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]^2*
            (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
                XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            1]]]))
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/96)*TheMass[InF]^2*TheMass[OutF])/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]) - 
        ((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/192)*TheMass[InF]^3*TheMass[OutF])/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/192)*TheMass[InF]^4)/
           (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/96)*TheMass[InF]^3)/(CommonMass*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)*XXX[m2/CommonMass]) + ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
           (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]]))
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
            XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
          (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]*
          TheMass[OutF]*(9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]^2*
            (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
                XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            1]]]))
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
         TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
          4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]^2*
         (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
          3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(10*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
          2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
            2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
            4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]*
           TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^
                2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/(Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/96)*(TheMass[InF]^4 - 6*CommonMass^2*TheMass[InF]^2*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         XXX[m2/CommonMass]^2))*G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/24)*(TheMass[InF]^3 - 3*CommonMass^2*TheMass[InF]*
           XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         XXX[m2/CommonMass]))*G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/24)*TheMass[OutF]*(TheMass[InF]^2 - 3*CommonMass^2*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/96)*TheMass[OutF]*(TheMass[InF]^3 - 6*CommonMass^2*TheMass[InF]*
             XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           XXX[m2/CommonMass]^2))*G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
         TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
          4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]^2*
         (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
          3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(10*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
          2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
          XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
             XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
           (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
            2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]*
           TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^
                2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^6 - 
          4*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 5*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          XXX[m3/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/192)*(3*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
           (2*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
            5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
                TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
                TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/64)*XXX[m1/CommonMass]^2*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m3/CommonMass]^2*(5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
                4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              3))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m2/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6 + 
          3*CommonMass^2*XXX[m2/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[OutF]^2 - 
            6*CommonMass^2*XXX[m2/CommonMass]^2) - 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 5*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 + 
          3*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*(TheMass[OutF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/576)*(-9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 
            2*TheMass[OutF]^2 - 9*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (-15*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(-6*TheMass[InF]^2 + 11*TheMass[OutF]^2 + 
            9*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/64)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/288)*TheMass[InF]*TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 
            7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 2*XXX[m2/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*
             (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
                TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(
                TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
             XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(
                TheMass[InF]^2 - TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 
              2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
           ((I/192)*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(15*TheMass[InF]^2 - 
                5*TheMass[OutF]^2 - 24*CommonMass^2*XXX[m2/CommonMass]^2) - 2*XXX[m1/CommonMass]^4*(
                TheMass[OutF]^2 - 6*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^4*(
                3*TheMass[InF]^2 + TheMass[OutF]^2 + 12*CommonMass^2*XXX[m2/CommonMass]^2)))/
            (CommonMass^2*Pi^2*XXX[m2/CommonMass]*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
       ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 
          3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^4*(TheMass[OutF]^2 + 3*CommonMass^2*XXX[m2/CommonMass]^2 + 
            6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
         (XXX[m2/CommonMass]^2*(3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (-3*CommonMass^2*XXX[m2/CommonMass]^4 - 3*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 + 
              6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (3*CommonMass^2*XXX[m3/CommonMass]^8 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
            2*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
           (-(TheMass[InF]^2*XXX[m3/CommonMass]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 - TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*
           (XXX[m3/CommonMass]^4*(2*TheMass[InF]^2 + TheMass[OutF]^2 - 
              6*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-5*(TheMass[InF]^2 + TheMass[OutF]^2) + 12*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) + ((I/192)*(-3*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + 
          XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*
             (-TheMass[InF]^2 + TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              3*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (6*CommonMass^2*XXX[m2/CommonMass]^6 + 2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 
              9*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(2*(TheMass[InF]^2 + 
                TheMass[OutF]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^4 + 
            3*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (4*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^4))))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3) + ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^6)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/96)*TheMass[InF]*
           TheMass[OutF]*XXX[m3/CommonMass]^2*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(5*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/24)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + 
            XXX[m1/CommonMass]^4*(3*XXX[m2/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*
             (-2*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^
                 2 + CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m1/CommonMass]^2 + 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
                TheMass[OutF]^2 + 2*CommonMass^2*XXX[m1/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3) - ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*
             (2*CommonMass^2*XXX[m1/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^
                 2 + CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
                2*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(-TheMass[InF]^2 + 
                TheMass[OutF]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3) - ((I/32)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*
             (TheMass[OutF]^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^2) + 
                (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) - 
              XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m2/CommonMass]^4 + 3*(-TheMass[InF]^2 + 
                  TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
                (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^4)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*
             (2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
                XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
              XXX[m3/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
                 (-TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
                XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*
                   XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
                  TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*
                 (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(-3*(TheMass[InF]^2 + TheMass[OutF]^2) + 
                  8*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
             XXX[m2/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2))*G[1][0][-OutF, -F[Index[Generic, 6]], 
            S[Index[Generic, 4]]][NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/576)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^4 - 
           22*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 5*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
          ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 - 
             2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4 + 
             6*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
          ((I/48)*Log[XXX[m1/CommonMass]]*(3*CommonMass^2*XXX[m1/CommonMass]^8 - 12*CommonMass^2*XXX[m1/CommonMass]^6*
              XXX[m3/CommonMass]^2 + 15*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 
             2*TheMass[InF]^2*XXX[m3/CommonMass]^6 - 6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
              (TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/576)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 + 6*
                TheMass[OutF]^2 - 45*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
              (22*TheMass[InF]^2 - 12*TheMass[OutF]^2 - 27*CommonMass^2*XXX[m3/CommonMass]^
                 2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(-14*TheMass[InF]^2 - 30*
                TheMass[OutF]^2 + 63*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
         (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/96)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 + 
          ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^2*
              (2*(TheMass[InF]^2 + TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
          ((I/192)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) - 21*CommonMass^2*XXX[m2/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
              XXX[m2/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*
                XXX[m2/CommonMass]^2) - XXX[m2/CommonMass]^4*(2*(TheMass[InF]^2 + TheMass[OutF]^
                  2) + 3*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + ((I/16)*Log[XXX[m2/CommonMass]]*
            XXX[m2/CommonMass]^2*(-2*CommonMass^2*XXX[m1/CommonMass]^6 - 4*CommonMass^2*XXX[m1/CommonMass]^2*
              XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (-2*(TheMass[InF]^2 + TheMass[OutF]^2) + 5*CommonMass^2*XXX[m2/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
           (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
          ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
         (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
          XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
          (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
          (-3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
        ((I/48)*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^2*(XXX[m1/CommonMass]^4 - 
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/48)*Log[XXX[m1/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (3*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*((-I/32)/(eps*Pi^2) + ((I/16)*Log[CommonMass])/Pi^2 - 
          ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(-2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + 3*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + 
               XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*
                CommonMass^2*XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(2*XXX[m3/CommonMass]^2*
                (TheMass[InF]^2 + 2*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) - 6*
                XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2))))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/48)*Log[XXX[m2/CommonMass]]*
            XXX[m2/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^6 + 2*TheMass[InF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) - 
             XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
             2*XXX[m1/CommonMass]^2*(-3*CommonMass^2*XXX[m2/CommonMass]^4 - 3*TheMass[InF]^2*
                XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^
                  2 + 3*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
          ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^8 + 
             6*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 6*CommonMass^2*XXX[m1/CommonMass]^6*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2*
                XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4) - 2*XXX[m1/CommonMass]^2*
              (TheMass[InF]^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*(TheMass[OutF]^2 + 
                 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
                (5*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^
                   2)) + XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*
                (2*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
               2*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                 6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/192)*(9*CommonMass^2*XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
             2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(2*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) - 9*CommonMass^2*XXX[m2/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^
                 2) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(4*TheMass[InF]^2 - 4*
                TheMass[OutF]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^2) - 
             2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(4*TheMass[InF]^2*
                XXX[m2/CommonMass]^2 + 9*CommonMass^2*XXX[m2/CommonMass]^4 - 4*TheMass[OutF]^2*
                XXX[m3/CommonMass]^2 - 9*CommonMass^2*XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^4*
              (9*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
                (-4*TheMass[InF]^2 + 4*TheMass[OutF]^2 - 27*CommonMass^2*XXX[m3/CommonMass]^
                   2) + XXX[m3/CommonMass]^4*(4*TheMass[InF]^2 - 4*TheMass[OutF]^2 - 
                 9*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
                 4*TheMass[OutF]^2 + 27*CommonMass^2*XXX[m3/CommonMass]^2))))/
           (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m1/CommonMass]]*
            TheMass[OutF]*XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/48)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
          5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/32)*XXX[m1/CommonMass]^2*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((-I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
           ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
              CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^
                 2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m1/CommonMass]]*
             XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^6 - 4*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 
              5*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
                TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/96)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m3/CommonMass]^4*(2*(TheMass[InF]^2 + 
                  TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
                3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(TheMass[InF]^2 + 
                TheMass[OutF]^2 + 21*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       ((I/144)*TheMass[InF]*TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 
          7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 2*XXX[m2/CommonMass]^4))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
              TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
              TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - ((I/96)*XXX[m1/CommonMass]*
           (XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(15*TheMass[InF]^2 - 5*TheMass[OutF]^2 - 
              24*CommonMass^2*XXX[m2/CommonMass]^2) - 2*XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 
              6*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 
              TheMass[OutF]^2 + 12*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*XXX[m2/CommonMass]*
           (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
           ((I/24)*Log[XXX[m2/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6 + 
              3*CommonMass^2*XXX[m2/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[OutF]^2 - 
                6*CommonMass^2*XXX[m2/CommonMass]^2) - 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(
                TheMass[InF]^2 - 5*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/24)*Log[XXX[m1/CommonMass]]*
             XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*(TheMass[InF]^
                 2 + CommonMass^2*XXX[m2/CommonMass]^2) - XXX[m1/CommonMass]^2*(TheMass[OutF]^2 + 
                6*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              4) + ((I/288)*(9*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(
                -6*TheMass[InF]^2 + 11*TheMass[OutF]^2 - 45*CommonMass^2*XXX[m2/CommonMass]^
                  2) + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 2*TheMass[OutF]^2 - 
                27*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(
                -15*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 63*CommonMass^2*XXX[m2/CommonMass]^
                  2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3) + ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^6)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3) - ((I/48)*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (5*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/12)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(3*XXX[m2/CommonMass]^4 - 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5)/
        (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2) - ((I/16)*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
       ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4)))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) - ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*
           (-2*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m1/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m1/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/16)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*
           (TheMass[OutF]^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^2) + 
              (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) - 
            XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m2/CommonMass]^4 + 3*(-TheMass[InF]^2 + 
                TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*
           (2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
              XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m3/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 
                TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -3*(TheMass[InF]^2 + TheMass[OutF]^2) + 8*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^5)/
            (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) - ((I/16)*TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             (XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^3*
                 XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2))*G[-1][0][-OutF, -F[Index[Generic, 6]], 
            V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], 
            ChirProj[-1]]] + RCF*((-I/16)/(eps*Pi^2) + 
           ((I/8)*Log[CommonMass])/Pi^2 + ((I/24)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
             (3*CommonMass^2*XXX[m1/CommonMass]^6 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^
                 2 + CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^4*(TheMass[OutF]^2 + 
                3*CommonMass^2*XXX[m2/CommonMass]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(
                XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                  3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
                  6*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
                2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/24)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2*(3*CommonMass^2*
                 XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*TheMass[OutF]^
                    2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
                  6*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*(-3*CommonMass^2*XXX[m2/CommonMass]^4 - 
                3*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
                XXX[m2/CommonMass]^2*(TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2))))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3) - ((I/24)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
             (3*CommonMass^2*XXX[m3/CommonMass]^8 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
                2*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(
                -(TheMass[InF]^2*XXX[m3/CommonMass]^2) + 3*CommonMass^2*XXX[m3/CommonMass]^4) + 
              XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 - TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
                3*CommonMass^2*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
                  2*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^4*
                 (2*TheMass[InF]^2 + TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + 
                3*XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-5*(TheMass[InF]^2 + TheMass[OutF]^
                     2) + 12*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
           ((I/96)*(3*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(-3*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*
                 (2*(TheMass[InF]^2 + TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^
                    2) + 2*XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
                  3*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -6*CommonMass^2*XXX[m2/CommonMass]^6 + 2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
                 XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4*(2*(TheMass[InF]^2 + 
                    TheMass[OutF]^2) - 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
                 (4*TheMass[OutF]^2 + 9*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(
                2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^4 - 
                3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
                  TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
                 (4*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 9*CommonMass^2*XXX[m3/CommonMass]^4))))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/64)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/192)*(12*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
             24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (-5*TheMass[InF]^2 + 15*TheMass[OutF]^2 + 12*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/64)*XXX[m1/CommonMass]*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 8*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^2)/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(2*XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + 
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + 
           XXX[m3/CommonMass]^2)))*G[1][0][-F[Index[Generic, 4]], InF, 
         -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/32)*XXX[m1/CommonMass]*(-(TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2) + 
           TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
            ((2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
             (TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m2/CommonMass]^4) + 
             3*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*
                CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m2/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m2/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^4 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
             XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*(TheMass[InF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
             XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^
                2 + 8*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/192)*(12*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(3*TheMass[InF]^2 + TheMass[OutF]^2 - 
             24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (15*TheMass[InF]^2 - 5*TheMass[OutF]^2 + 12*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/64)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        ((I/64)*XXX[m1/CommonMass]*(4*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (5*(TheMass[InF]^2 + TheMass[OutF]^2) - 8*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
        ((I/32)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
         (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/32)*XXX[m1/CommonMass]*(-(TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2) + 
           TheMass[OutF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
            ((TheMass[InF]^2 + 2*TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
             (2*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-(TheMass[InF]^2*XXX[m2/CommonMass]^4) + 
             3*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*
                CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m2/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m2/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^4 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
             XXX[m2/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
          (2*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 
             TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 4*CommonMass^2*XXX[m2/CommonMass]^2 + 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*(TheMass[OutF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
             XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^
                2 + 8*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]^2)/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^2*
          (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + 
           XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((-I/288)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^4 - 
          22*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 5*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (((3*I)/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (((3*I)/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/
          Pi^2 + ((I/48)*Log[XXX[m1/CommonMass]]*(18*CommonMass^2*XXX[m1/CommonMass]^8 - 
            72*CommonMass^2*XXX[m1/CommonMass]^6*XXX[m3/CommonMass]^2 + (7*TheMass[InF]^2 + 
              3*TheMass[OutF]^2)*XXX[m3/CommonMass]^6 - 3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
             (TheMass[InF]^2 + 9*TheMass[OutF]^2 + 12*CommonMass^2*XXX[m3/CommonMass]^2) + 
            6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 
              15*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) + ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*
           (3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 9*TheMass[OutF]^2 - 
              12*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m1/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
             (-7*TheMass[InF]^2 - 3*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/576)*(18*CommonMass^2*XXX[m1/CommonMass]^6 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (17*TheMass[InF]^2 + 93*TheMass[OutF]^2 - 81*CommonMass^2*XXX[m3/CommonMass]^2) + 
            5*XXX[m3/CommonMass]^4*(-13*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(-29*TheMass[InF]^2 - 
              21*TheMass[OutF]^2 + 54*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       ((I/4)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       ((I/48)*TheMass[InF]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 
          5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (((3*I)/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
        (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
       (((3*I)/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/
          Pi^2 - ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*(6*CommonMass^2*XXX[m1/CommonMass]^6 + 
            12*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - 3*CommonMass^2*XXX[m2/CommonMass]^6 + 
            5*XXX[m1/CommonMass]^4*(TheMass[InF]^2 + TheMass[OutF]^2 - 
              3*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            4) + ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m1/CommonMass]^4 - 
            6*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^2*
             (5*(TheMass[InF]^2 + TheMass[OutF]^2) + 3*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         ((I/96)*(15*CommonMass^2*XXX[m1/CommonMass]^6 + XXX[m1/CommonMass]^4*(10*(TheMass[InF]^2 + 
                TheMass[OutF]^2) - 27*CommonMass^2*XXX[m2/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*(-5*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              3*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
             (25*(TheMass[InF]^2 + TheMass[OutF]^2) + 9*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
         (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
         (-3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/24)*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^2*(XXX[m1/CommonMass]^4 - 
          XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
         TheMass[OutF]*XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((((3*I)/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + 
          XXX[m3/CommonMass]^2)) - (((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((((3*I)/32)*TheMass[OutF]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) + (((3*I)/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (((3*I)/16)*Log[XXX[m1/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]^3*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-3*I)/16)/(eps*Pi^2) + (((3*I)/8)*Log[CommonMass])/
          Pi^2 + ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*
           (6*XXX[m1/CommonMass]^4*(-3*CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(
                -TheMass[InF]^2 + TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m3/CommonMass]^4*(XXX[m3/CommonMass]^2*(7*TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
                18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-3*TheMass[InF]^2 - 
                7*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(3*XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 + 
                7*TheMass[OutF]^2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                -7*TheMass[InF]^2 - 23*TheMass[OutF]^2 + 36*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/48)*Log[XXX[m2/CommonMass]]*
           XXX[m2/CommonMass]^2*(6*XXX[m1/CommonMass]^4*(3*CommonMass^2*XXX[m2/CommonMass]^4 + 
              (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^2 - 
              3*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (18*CommonMass^2*XXX[m2/CommonMass]^4 + (7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*
               XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 + 
                7*TheMass[OutF]^2 + 18*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(-36*CommonMass^2*XXX[m2/CommonMass]^4 - 
              3*(7*TheMass[InF]^2 + 3*TheMass[OutF]^2)*XXX[m3/CommonMass]^2 + 
              XXX[m2/CommonMass]^2*(23*TheMass[InF]^2 + 7*TheMass[OutF]^2 + 
                36*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/96)*(15*CommonMass^2*XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(4*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
              15*CommonMass^2*XXX[m2/CommonMass]^2 - 15*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^6*((13*TheMass[InF]^2 + 7*TheMass[OutF]^2)*XXX[m2/CommonMass]^
                2 - 30*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(-7*TheMass[InF]^2 - 
                13*TheMass[OutF]^2 + 30*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-((11*TheMass[InF]^2 + 
                 9*TheMass[OutF]^2)*XXX[m2/CommonMass]^2) - 30*CommonMass^2*XXX[m2/CommonMass]^4 + 
              XXX[m3/CommonMass]^2*(9*TheMass[InF]^2 + 11*TheMass[OutF]^2 + 
                30*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(15*CommonMass^2*XXX[m2/CommonMass]^6 + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-22*TheMass[InF]^2 + 
                22*TheMass[OutF]^2 - 45*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(
                7*TheMass[InF]^2 - 7*TheMass[OutF]^2 - 15*CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m2/CommonMass]^4*(7*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 
                45*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (18*CommonMass^2*XXX[m1/CommonMass]^8 - 36*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             ((9*TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m3/CommonMass]^2 + 
              XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 9*TheMass[OutF]^2 + 
                6*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*((7*TheMass[InF]^2 + 
                3*TheMass[OutF]^2)*XXX[m3/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                25*(TheMass[InF]^2 + TheMass[OutF]^2) + 18*CommonMass^2*XXX[m3/CommonMass]^
                  2) + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 + 7*TheMass[OutF]^2 + 
                36*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(18*CommonMass^2*XXX[m2/CommonMass]^4 + 
              XXX[m3/CommonMass]^2*(7*TheMass[InF]^2 + 23*TheMass[OutF]^2 + 
                18*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(23*TheMass[InF]^2 + 
                7*TheMass[OutF]^2 + 72*CommonMass^2*XXX[m3/CommonMass]^2))))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
         (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
          (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + 
           XXX[m1/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*
          TheMass[OutF]*(9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[OutF]^2*
            (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 21*CommonMass^2*
                XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/96)*TheMass[InF]*TheMass[OutF]^2)/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 5]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/192)*TheMass[InF]*TheMass[OutF]^3)/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/192)*TheMass[OutF]^4)/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/96)*TheMass[OutF]^3)/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*XXX[m2/CommonMass]) + ((I/16)*CommonMass*TheMass[OutF]*
            XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
          (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + 
           XXX[m2/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
          (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*
          TheMass[OutF]*(9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[OutF]^2*
            (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 21*CommonMass^2*
                XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 
             5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 
           2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + 
           XXX[m1/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
          (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
            (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[OutF]^2*
            (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/96)*TheMass[InF]*(TheMass[OutF]^3 - 6*CommonMass^2*TheMass[OutF]*
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          XXX[m2/CommonMass]^2))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
         -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]]*G[-1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], V[Index[Generic, 6]]][NonComm[
         DiracMat[KI1[3]], ChirProj[-1]]] + 
      RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/24)*TheMass[InF]*(TheMass[OutF]^2 - 3*CommonMass^2*XXX[m2/CommonMass]^2))/
         (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/24)*(TheMass[OutF]^3 - 3*CommonMass^2*TheMass[OutF]*XXX[m2/CommonMass]^2))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/96)*(TheMass[OutF]^4 - 
             6*CommonMass^2*TheMass[OutF]^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 
             5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^6 - 
           2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + 
           XXX[m2/CommonMass]^3*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
          (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
        NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[-1]]] + 
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/2)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
            (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
        RCF*(((I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[OutF]^2*
            (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
          NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
       G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
         ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]^2*
          (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*(2*TheMass[InF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]*
            TheMass[OutF]*(9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
              XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (4*TheMass[InF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
              (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            -1]]] + RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
           (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            1]]]))
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/96)*TheMass[InF]^3)/(CommonMass*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)*XXX[m2/CommonMass]) + ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/(Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/192)*TheMass[InF]^4)/
         (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/192)*TheMass[InF]^3*TheMass[OutF])/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/96)*TheMass[InF]^2*TheMass[OutF])/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]) - 
          ((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
         G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]]))
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
       DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + CommonMass^2*XXX[m3/CommonMass]^4 + 
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
          (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((I/32)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
           2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]^2*
          (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
             21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2*
              XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]] + 
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
             2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/16)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
             XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[InF]*
            TheMass[OutF]*(9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
              XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (4*TheMass[InF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
              (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            -1]]] + RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
           (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[1][0][-F[Index[Generic, 5]], 
           InF, -S[Index[Generic, 6]]][NonComm[ChirProj[
            1]]]))
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
          2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^6 - 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]^3*(CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
            2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
            4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]^2*
           (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^
                2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/96)*TheMass[OutF]*(TheMass[InF]^3 - 6*CommonMass^2*TheMass[InF]*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         XXX[m2/CommonMass]^2))*G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/24)*TheMass[OutF]*(TheMass[InF]^2 - 3*CommonMass^2*XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass])/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/24)*(TheMass[InF]^3 - 3*CommonMass^2*TheMass[InF]*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           XXX[m2/CommonMass]))*G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/(Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/96)*(TheMass[InF]^4 - 
            6*CommonMass^2*TheMass[InF]^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR0[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
         (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
          2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         TheMass[OutF]*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^6 - 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m2/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + 
          XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
        DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           XXX[m2/CommonMass]^3*(CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
            2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/2)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]^2)/(eps*Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]^2*XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[InF]^2*
           (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^
                2 - 3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 4]], OutV][NonComm[
          DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(6*TheMass[OutF]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/96)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^4*(-4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*
           (-6*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) - 
       ((I/2304)*(16*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(-TheMass[InF]^2 + 
            3*TheMass[OutF]^2 - 88*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^6*(-37*TheMass[InF]^2 + 31*TheMass[OutF]^2 + 
            88*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (7*TheMass[InF]^2 - 29*TheMass[OutF]^2 + 216*CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(29*TheMass[InF]^2 + 65*TheMass[OutF]^2 + 
            232*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          5))*G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
         ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/192)*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/1152)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^6 - 
              11*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 47*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
              3*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
           ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
             (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
             TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
           ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 12*CommonMass^2*XXX[m2/CommonMass]^2) - 
          6*XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 12*CommonMass^2*XXX[m2/CommonMass]^2) - 
          6*XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/2304)*(-48*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*
           (22*TheMass[InF]^2 - 29*TheMass[OutF]^2 - 168*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^6*(6*TheMass[InF]^2 + 31*TheMass[OutF]^2 - 
            24*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^6*(-2*TheMass[InF]^2 + 
            3*TheMass[OutF]^2 + 24*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(94*TheMass[InF]^2 - 65*TheMass[OutF]^2 + 
            216*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          5))*G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*
           TheMass[OutF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
         ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*(5*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + ((I/96)*Log[XXX[m2/CommonMass]]*
             TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*
               XXX[m2/CommonMass]^2))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
           ((I/2304)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
              29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
              XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*
             TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
              3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
           ((I/576)*TheMass[InF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
              8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 4*CommonMass^2*XXX[m3/CommonMass]^6 + 
            4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^4*(-6*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-3*TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m3/CommonMass]^4*
           (XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 2*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
         (XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 2*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 
              20*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(-8*CommonMass^2*XXX[m2/CommonMass]^6 + 12*CommonMass^2*XXX[m3/CommonMass]^6 - 
            4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^4*(TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) - ((I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^8*(TheMass[OutF]^2 - 8*CommonMass^2*XXX[m2/CommonMass]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
           (-TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           (XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^4*
           (XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + 
              TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (-TheMass[InF]^2 + 2*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^4 + 2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 - 
              2*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/384)*(-8*CommonMass^2*XXX[m1/CommonMass]^10*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3 + 
          XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^10 + 8*(-TheMass[InF]^2 + 
              TheMass[OutF]^2)*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 - 27*TheMass[OutF]^2*
             XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^8*(5*TheMass[InF]^2 - 
              9*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 8*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^6*(TheMass[InF]^2 - CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^8*(-5*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*
           (-8*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(4*TheMass[InF]^2 - 
              3*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-4*TheMass[InF]^2 + 9*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-24*CommonMass^2*XXX[m2/CommonMass]^8 + 
            27*TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
            27*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
            XXX[m3/CommonMass]^6*(13*TheMass[InF]^2 - 10*TheMass[OutF]^2 - 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^6*(-13*TheMass[InF]^2 + 
              19*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^6*(TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m3/CommonMass]^6*(TheMass[InF]^2 + 
              4*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^2*(3*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              32*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*
             (3*TheMass[InF]^2 + 10*TheMass[OutF]^2 + 40*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(24*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(6*TheMass[InF]^2 - 19*TheMass[OutF]^2 - 
              40*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-6*TheMass[InF]^2 + 
              3*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-8*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^4))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
           (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^4 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*(-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^3*
             (2*XXX[m2/CommonMass]^3 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/96)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^6*
             (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*
             (XXX[m1/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/96)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
             (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
              XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
                XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 
                4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^4) + ((I/384)*TheMass[InF]*TheMass[OutF]*
             (-(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^6*(5*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
              XXX[m1/CommonMass]^6*(4*XXX[m2/CommonMass]^6 - 6*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
                13*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 5*XXX[m3/CommonMass]^6) - 
              XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 14*XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + XXX[m3/CommonMass]^8) + 
              XXX[m1/CommonMass]^2*(13*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^8)))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5*
             (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
             (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*TheMass[InF]*XXX[m2/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
              XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
                XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
          (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
          TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
        ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^4*(6*CommonMass^2*XXX[m1/CommonMass]^6 - 
           TheMass[InF]^2*XXX[m3/CommonMass]^4 + 6*XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
        ((I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(6*CommonMass^2*XXX[m1/CommonMass]^6 - 
           TheMass[InF]^2*XXX[m3/CommonMass]^4 + 6*XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
            (-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) - 
        ((I/2304)*(12*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 
             2*TheMass[OutF]^2 - 84*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^6*(37*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 
             24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
            (29*TheMass[InF]^2 - 94*TheMass[OutF]^2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(-7*TheMass[InF]^2 - 22*TheMass[OutF]^2 + 
             108*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           5))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/2304)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^6 - 
             29*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 65*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 
             31*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
          ((I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
          ((I/96)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
            (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
           (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
          ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
           3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           5) + ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
           3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           5) + ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
           8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (2*(TheMass[InF]^2 + TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
        ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
           XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
             4*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            (2*(TheMass[InF]^2 + TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
        ((I/2304)*(44*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*
            (37*(TheMass[InF]^2 + TheMass[OutF]^2) - 116*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m2/CommonMass]^6*(TheMass[InF]^2 + TheMass[OutF]^2 + 
             8*CommonMass^2*XXX[m2/CommonMass]^2) - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*
            (7*(TheMass[InF]^2 + TheMass[OutF]^2) + 44*CommonMass^2*XXX[m2/CommonMass]^2) + 
           XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(29*(TheMass[InF]^2 + TheMass[OutF]^2) + 
             108*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           5))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
          ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
          ((I/1152)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
             29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
             XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
             3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*
            TheMass[InF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
           (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
          ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
             8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
           (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
          (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
          (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
          (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + ((I/48)*TheMass[OutF]*XXX[m1/CommonMass]*
          (XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - 
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^8 + 
           4*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^6*
            (TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 
             4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4) + 2*XXX[m1/CommonMass]^4*
            (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(TheMass[InF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*(TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
             2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*(TheMass[InF]^2 + TheMass[OutF]^
                  2) + 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[OutF]^2 + 4*
                CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
          (-(TheMass[InF]^2*XXX[m3/CommonMass]^8) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^6*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*CommonMass^2*XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^4 - 
             4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + 
           XXX[m1/CommonMass]^4*(2*XXX[m2/CommonMass]^4*(3*TheMass[OutF]^2 - 8*CommonMass^2*
                XXX[m3/CommonMass]^2) - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
               TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
              (TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2)) + 
           2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
              (3*TheMass[InF]^2 - 2*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^4*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m2/CommonMass]^4*(-2*TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
          (TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m2/CommonMass]^8*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^6*
            XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
             2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^4 - 
             4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 3*XXX[m3/CommonMass]^4) + 
           2*XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^8 - 2*TheMass[InF]^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^6*(TheMass[InF]^2 - 8*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 3*
                TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) + 
           XXX[m1/CommonMass]^4*(-4*CommonMass^2*XXX[m2/CommonMass]^6 + 6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
             4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 4*
                CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 + 
               TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2))))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/384)*(4*CommonMass^2*XXX[m1/CommonMass]^10*(XXX[m2/CommonMass]^6 - 
             XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
             XXX[m3/CommonMass]^6) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
            (12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*(13*TheMass[InF]^2 - 3*
                TheMass[OutF]^2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) - 4*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 - 13*
                TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) + 
           XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*((-TheMass[InF]^2 + 5*TheMass[OutF]^2)*
              XXX[m2/CommonMass]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*
              (-5*TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) + 
           XXX[m1/CommonMass]^8*(-8*CommonMass^2*XXX[m2/CommonMass]^8 - (13*TheMass[InF]^2 + 6*
                TheMass[OutF]^2)*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
             XXX[m2/CommonMass]^6*(5*TheMass[InF]^2 + 4*TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(6*TheMass[InF]^2 + 13*
                TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*
              (-4*TheMass[InF]^2 - 5*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2)) + 
           XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-12*CommonMass^2*XXX[m2/CommonMass]^8 + 
             27*TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
              (-3*TheMass[InF]^2 + 6*TheMass[OutF]^2 - 16*CommonMass^2*XXX[m3/CommonMass]^2) + 
             3*XXX[m3/CommonMass]^6*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-27*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
               16*CommonMass^2*XXX[m3/CommonMass]^6)) + XXX[m1/CommonMass]^6*(4*CommonMass^2*XXX[m2/CommonMass]^10 - 
             8*TheMass[InF]^2*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 - 
             27*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
             XXX[m3/CommonMass]^8*(-4*TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^8*(TheMass[InF]^2 - 4*TheMass[OutF]^
                 2 + 20*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*
                XXX[m3/CommonMass]^6 - 5*CommonMass^2*XXX[m3/CommonMass]^8))))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/96)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
            (-2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + 
             XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
              (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/96)*Log[XXX[m3/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
            (XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
              (2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*
            (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - ((I/96)*Log[XXX[m1/CommonMass]]*
            TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*(2*XXX[m1/CommonMass]^6 + 
             2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 4*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
              (XXX[m2/CommonMass]^4 + 12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/384)*TheMass[InF]*
            TheMass[OutF]*(4*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6 - 10*XXX[m1/CommonMass]^2*
              XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
             3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4 + 10*
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^8*
              (9*XXX[m2/CommonMass]^4 - 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 9*XXX[m3/CommonMass]^4) - 
             XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^6 + 11*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 11*
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 3*XXX[m3/CommonMass]^6)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
            (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
            (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
            (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
             XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
                2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
               XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/1152)*(-88*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (29*TheMass[InF]^2 - 7*TheMass[OutF]^2 - 216*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^6*(-31*TheMass[InF]^2 + 37*TheMass[OutF]^2 - 
            16*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
           (65*TheMass[InF]^2 + 29*TheMass[OutF]^2 + 88*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^6*(-3*TheMass[InF]^2 + TheMass[OutF]^2 + 
            232*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          5) - ((I/48)*Log[XXX[m1/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^8*XXX[m3/CommonMass]^2 + 
          36*CommonMass^2*XXX[m1/CommonMass]^6*XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^8*(-TheMass[InF]^2 + 
            TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6*
           (TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*
           (6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 40*CommonMass^2*XXX[m3/CommonMass]^6)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^8*XXX[m3/CommonMass]^2 + 
          36*CommonMass^2*XXX[m1/CommonMass]^6*XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^8*(-TheMass[InF]^2 + 
            TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6*
           (TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*
           (6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 40*CommonMass^2*XXX[m3/CommonMass]^6)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
         TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
       ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
         ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
         ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
             (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
             TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
           ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((-I/576)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^6 - 
              11*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 47*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
              3*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
           ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
           ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6 + 
          18*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(4*TheMass[InF]^2 - 
            2*TheMass[OutF]^2 + 21*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
            30*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          6) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6 + 
          18*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(4*TheMass[InF]^2 - 
            2*TheMass[OutF]^2 + 21*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
            30*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          6) + ((I/1152)*(60*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*
           (74*TheMass[InF]^2 - 37*TheMass[OutF]^2 - 384*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*(7*(-2*TheMass[InF]^2 + TheMass[OutF]^2) - 
            384*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^6*(2*TheMass[InF]^2 - 
            TheMass[OutF]^2 + 60*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
           (58*TheMass[InF]^2 - 29*TheMass[OutF]^2 + 648*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
         (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
         TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
       ((I/288)*TheMass[OutF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
          8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/32)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*(5*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
           TheMass[OutF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
             TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
              3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
           ((I/288)*TheMass[InF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
              8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
             (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + ((I/48)*Log[XXX[m2/CommonMass]]*
             TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*
               XXX[m2/CommonMass]^2))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
           ((I/1152)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
              29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
              XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + XXX[m2/CommonMass]^4*(6*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 16*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 
              7*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(26*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + TheMass[OutF]^2 - 
              64*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(4*TheMass[InF]^2 - 2*TheMass[OutF]^2 + 
              25*CommonMass^2*XXX[m3/CommonMass]^2)) - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (13*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 - 34*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m3/CommonMass]^4*
             (TheMass[InF]^2 - TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
              29*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*(-6*CommonMass^2*XXX[m1/CommonMass]^6*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^6*(6*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
              16*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(-12*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 - 3*TheMass[OutF]^2 - 
              26*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
              7*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 
              31*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (30*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(6*TheMass[InF]^2 - 
              76*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m3/CommonMass]^4*(-2*TheMass[InF]^2 + 
              TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(-4*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
              31*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^10 + 
          6*CommonMass^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^8*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
            26*CommonMass^2*XXX[m2/CommonMass]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) + 
          2*XXX[m1/CommonMass]^6*(-13*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (-TheMass[InF]^2 + TheMass[OutF]^2 - 34*CommonMass^2*XXX[m3/CommonMass]^2) - 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(6*CommonMass^2*XXX[m2/CommonMass]^4 + 
            2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + 
              25*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(6*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(6*TheMass[InF]^2 - 
              3*TheMass[OutF]^2 + 29*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (TheMass[InF]^2 + 64*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) - ((I/192)*(4*CommonMass^2*XXX[m1/CommonMass]^10*(2*XXX[m2/CommonMass]^6 - 
            3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6) - 
          XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*(4*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (4*TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(-4*TheMass[InF]^2 + 5*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
           (8*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 7*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^4*(10*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              28*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-10*TheMass[InF]^2 + 
              13*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^6*(-9*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
              44*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*
             (-19*TheMass[InF]^2 + 6*TheMass[OutF]^2 - 28*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^6*(9*TheMass[InF]^2 - 4*TheMass[OutF]^2 - 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*
             (19*TheMass[InF]^2 - 13*TheMass[OutF]^2 + 80*CommonMass^2*XXX[m3/CommonMass]^
                2)) - XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           (-12*CommonMass^2*XXX[m2/CommonMass]^8 + 27*(-TheMass[InF]^2 + TheMass[OutF]^2)*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^6*(-3*TheMass[InF]^2 + 
              6*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^6*
             (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 80*CommonMass^2*XXX[m3/CommonMass]^2) + 
            3*XXX[m2/CommonMass]^4*(9*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 32*CommonMass^2*XXX[m3/CommonMass]^
                4)) + XXX[m1/CommonMass]^6*(-8*CommonMass^2*XXX[m2/CommonMass]^10 + 
            8*(TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 - 
            8*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6*(TheMass[InF]^2 - 7*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^8*(-3*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^8*(3*TheMass[InF]^2 + 
              TheMass[OutF]^2 + 44*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*
             (9*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 32*CommonMass^2*XXX[m3/CommonMass]^6))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
         (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         (XXX[m2/CommonMass]^7*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^7 - 3*XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3) - ((I/24)*TheMass[OutF]*(XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^4 - 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]*(XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^4 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*(-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^3*
             (2*XXX[m2/CommonMass]^3 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^9 - 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^7*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*TheMass[OutF]*(XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^5*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]])*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^9 - 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^7*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*TheMass[InF]*(XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^5*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
             (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
           ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*(XXX[m2/CommonMass]^7*(XXX[m2/CommonMass]^2 + 
                XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^7 - 3*XXX[m2/CommonMass]^5*
                 XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/24)*TheMass[InF]*
             (XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^4 - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(
                XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
            (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^6*
             (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*
             (XXX[m1/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
             (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
              XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
                XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 
                4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^4) + ((I/192)*TheMass[InF]*TheMass[OutF]*
             (-(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^6*(5*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
              XXX[m1/CommonMass]^6*(4*XXX[m2/CommonMass]^6 - 6*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
                13*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 5*XXX[m3/CommonMass]^6) - 
              XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 14*XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + XXX[m3/CommonMass]^8) + 
              XXX[m1/CommonMass]^2*(13*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^8)))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/64)*(XXX[m1/CommonMass]^3 + 5*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/144)*TheMass[InF]*(2*XXX[m1/CommonMass]^4 + 11*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 7*XXX[m3/CommonMass]^4))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/24)*Log[XXX[m1/CommonMass]]*
          TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^6))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
          XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        ((I/192)*(-2*XXX[m1/CommonMass]^5 - 5*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 + 
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*XXX[m2/CommonMass]^2*
          (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 4]], 
         InF, -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/288)*TheMass[InF]*(3*XXX[m1/CommonMass]^6 + 13*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*G[1][0][-F[Index[Generic, 4]], InF, 
         -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-XXX[m2/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) + ((I/32)*(-2*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^3*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
          (3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^6 + 
             3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/96)*TheMass[InF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + 
           3*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 7*XXX[m1/CommonMass]^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 + 14*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m3/CommonMass]^4)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 4]], 
         InF, -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((I/144)*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 11*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 7*XXX[m3/CommonMass]^4))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/24)*Log[XXX[m1/CommonMass]]*
          TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^6))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/64)*(XXX[m1/CommonMass]^3 + 5*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/288)*TheMass[OutF]*(3*XXX[m1/CommonMass]^6 + 13*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
          XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        ((I/192)*(-2*XXX[m1/CommonMass]^5 - 5*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 + 
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*XXX[m2/CommonMass]^2*
          (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     (RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
          (3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^6 + 
             3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/96)*TheMass[OutF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + 
           3*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 7*XXX[m1/CommonMass]^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 + 14*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m3/CommonMass]^4)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-XXX[m2/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) + ((I/32)*(-2*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^3*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^2*(-12*CommonMass^2*XXX[m1/CommonMass]^8 + 
          XXX[m3/CommonMass]^6*(-3*TheMass[InF]^2 + 4*TheMass[OutF]^2 - 
            6*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
          2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m1/CommonMass]^6*(-TheMass[InF]^2 + 
            TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*(12*CommonMass^2*XXX[m1/CommonMass]^8 + 
          6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
            CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
            TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m1/CommonMass]^6*
           (-TheMass[InF]^2 + TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^6*(3*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
            6*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/1152)*(60*CommonMass^2*XXX[m1/CommonMass]^8 + (43*TheMass[InF]^2 - 
            14*TheMass[OutF]^2)*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(-209*TheMass[InF]^2 + 
            274*TheMass[OutF]^2 - 168*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^6*(19*TheMass[InF]^2 - 22*TheMass[OutF]^2 - 
            24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(87*TheMass[InF]^2 - 
            118*TheMass[OutF]^2 + 132*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/16)*Log[XXX[m3/CommonMass]]*
         TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
       ((I/192)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
         ((I/192)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-I/1152)*TheMass[InF]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^6 - 29*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 65*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^4 + 31*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/48)*Log[XXX[m1/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*(6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m3/CommonMass]^8))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
         ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(4*CommonMass^2*XXX[m1/CommonMass]^6 - 
          12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*(-7*TheMass[InF]^2 + 
            5*TheMass[OutF]^2 - 20*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 5*TheMass[OutF]^2 + 
            14*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          6) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*(4*CommonMass^2*XXX[m1/CommonMass]^6 - 
          12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*(-7*TheMass[InF]^2 + 
            5*TheMass[OutF]^2 - 20*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*
           XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 5*TheMass[OutF]^2 + 
            14*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          6) + ((I/1152)*(XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2*(-97*TheMass[InF]^2 + 
            23*TheMass[OutF]^2 - 256*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6*(-29*TheMass[InF]^2 + 43*TheMass[OutF]^2 - 
            256*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m1/CommonMass]^8*(-9*TheMass[InF]^2 + 
            9*TheMass[OutF]^2 + 20*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m2/CommonMass]^8*(5*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 
            40*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^4*
           (79*TheMass[InF]^2 - 137*TheMass[OutF]^2 + 432*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^5))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
         (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/16)*Log[XXX[m2/CommonMass]]*
         TheMass[OutF]*XXX[m1/CommonMass]^5*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
       ((I/192)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
          8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
           (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/16)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^5*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/192)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           TheMass[OutF]*(XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
         ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
         ((I/576)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
            29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*
         (2*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m2/CommonMass]^6 - 2*CommonMass^2*XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^2 - 6*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m2/CommonMass]^6*(-6*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(3*TheMass[InF]^2 - 
              4*TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*(-8*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 2*TheMass[OutF]^2 - 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(-3*TheMass[InF]^2 + 
              4*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m3/CommonMass]^4*
             (3*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(-14*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) - 
              13*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m3/CommonMass]^4*(3*TheMass[InF]^2 - 
              4*TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 + 10*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) - ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*
         (XXX[m3/CommonMass]^6*(6*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*(-3*TheMass[InF]^2 + 
              4*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (2*TheMass[InF]^2 - 3*TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2)) + 2*XXX[m1/CommonMass]^6*(-6*CommonMass^2*XXX[m2/CommonMass]^6 + 
            2*CommonMass^2*XXX[m3/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-3*TheMass[InF]^2 + 3*TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
            3*XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2)) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
           (-12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (5*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^4*(5*TheMass[InF]^2 - 6*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(-4*TheMass[InF]^2 + 
              6*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(30*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*
             (-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 14*CommonMass^2*XXX[m3/CommonMass]^2) + 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-10*TheMass[InF]^2 + 14*TheMass[OutF]^
                2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^4*(-6*TheMass[InF]^2 + 
              9*TheMass[OutF]^2 + 13*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(4*CommonMass^2*XXX[m1/CommonMass]^10 - 
          6*CommonMass^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^8*(-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
            14*CommonMass^2*XXX[m2/CommonMass]^2 - 14*CommonMass^2*XXX[m3/CommonMass]^2) + 
          2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(6*CommonMass^2*XXX[m2/CommonMass]^4 - 
            2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^4 + 
            XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 3*TheMass[OutF]^2 + 
              14*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
              38*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-3*TheMass[InF]^2 + 
              4*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 
              19*CommonMass^2*XXX[m3/CommonMass]^2)) + 2*XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^4 + 
            XXX[m3/CommonMass]^2*(5*TheMass[InF]^2 - 6*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 - 
              4*TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/192)*(-2*XXX[m1/CommonMass]^10*(-2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            2*XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(5*TheMass[InF]^2 - 
              5*TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(TheMass[InF]^2 - TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^
                2)) + XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*
           ((-7*TheMass[InF]^2 + 11*TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 
            16*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(13*TheMass[InF]^2 - 
              17*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(36*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m3/CommonMass]^4*(-37*TheMass[InF]^2 + 47*TheMass[OutF]^2 - 
              36*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (9*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 26*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*(19*TheMass[InF]^2 - 29*TheMass[OutF]^2 + 
              52*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^8*(-8*CommonMass^2*XXX[m2/CommonMass]^8 + 
            (-35*TheMass[InF]^2 + 16*TheMass[OutF]^2)*XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*(-3*TheMass[InF]^2 + 12*TheMass[OutF]^
                2 - 64*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(12*TheMass[InF]^2 - 
              21*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^4*(80*TheMass[InF]^2 - 61*TheMass[OutF]^2 + 
              64*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^6*(4*CommonMass^2*XXX[m2/CommonMass]^10 + 
            XXX[m3/CommonMass]^8*(-2*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
              4*CommonMass^2*XXX[m3/CommonMass]^2) - 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
             (9*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2) - 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6*(51*TheMass[InF]^2 - 55*TheMass[OutF]^
                2 + 34*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2*
             (17*TheMass[InF]^2 - 21*TheMass[OutF]^2 + 48*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^8*(TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
              68*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           (-24*CommonMass^2*XXX[m2/CommonMass]^8 + (-26*TheMass[InF]^2 + 53*TheMass[OutF]^2)*
             XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*(-13*TheMass[InF]^2 + 
              16*TheMass[OutF]^2 - 112*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^6*(32*TheMass[InF]^2 - 35*TheMass[OutF]^2 + 
              24*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*
             (91*TheMass[InF]^2 - 118*TheMass[OutF]^2 + 112*CommonMass^2*XXX[m3/CommonMass]^
                2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
         (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
           (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           TheMass[OutF]*XXX[m2/CommonMass]^4*(-2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - 
              3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
            2*XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/48)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
             (2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - ((I/48)*Log[XXX[m1/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*(2*XXX[m1/CommonMass]^6 + 
            2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 4*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^4 + 12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*
           TheMass[OutF]*(4*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6 - 10*XXX[m1/CommonMass]^2*
             XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4 + 
              10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + 
            XXX[m1/CommonMass]^8*(9*XXX[m2/CommonMass]^4 - 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              9*XXX[m3/CommonMass]^4) - XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^6 + 11*XXX[m2/CommonMass]^
                4*XXX[m3/CommonMass]^2 + 11*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 3*XXX[m3/CommonMass]^6)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpL2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(6*TheMass[OutF]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/96)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^4*(-4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
           (TheMass[InF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*
           (-6*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            4*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) - 
       ((I/2304)*(16*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(-TheMass[InF]^2 + 
            3*TheMass[OutF]^2 - 88*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^6*(-37*TheMass[InF]^2 + 31*TheMass[OutF]^2 + 
            88*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
           (7*TheMass[InF]^2 - 29*TheMass[OutF]^2 + 216*CommonMass^2*XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(29*TheMass[InF]^2 + 65*TheMass[OutF]^2 + 
            232*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          5))*G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
         ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/1152)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^6 - 
            11*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 47*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            3*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
         ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
         ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/192)*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
             (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
           ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 12*CommonMass^2*XXX[m2/CommonMass]^2) - 
          6*XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 12*CommonMass^2*XXX[m2/CommonMass]^2) - 
          6*XXX[m2/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 + 6*CommonMass^2*XXX[m2/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/2304)*(-48*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*
           (22*TheMass[InF]^2 - 29*TheMass[OutF]^2 - 168*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^6*(6*TheMass[InF]^2 + 31*TheMass[OutF]^2 - 
            24*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^6*(-2*TheMass[InF]^2 + 
            3*TheMass[OutF]^2 + 24*CommonMass^2*XXX[m2/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(94*TheMass[InF]^2 - 65*TheMass[OutF]^2 + 
            216*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          5))*G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
           (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/576)*TheMass[InF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
         ((I/96)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
         ((I/2304)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
            29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/64)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*(5*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
              2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
              2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
              3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
                2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             (XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/576)*TheMass[OutF]*
             XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
              XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 4*CommonMass^2*XXX[m3/CommonMass]^6 + 
            4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^4*(-6*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-3*TheMass[InF]^2 + TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m3/CommonMass]^4*
           (XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 2*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
         (XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 2*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) - 
          2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(-4*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 
              20*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
              TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*(-8*CommonMass^2*XXX[m2/CommonMass]^6 + 12*CommonMass^2*XXX[m3/CommonMass]^6 - 
            4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^4*(TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) - ((I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
         (XXX[m1/CommonMass]^8*(TheMass[OutF]^2 - 8*CommonMass^2*XXX[m2/CommonMass]^2 - 
            4*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
           (-TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
           (XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^4*
           (XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(2*TheMass[InF]^2 + 
              TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
             (-TheMass[InF]^2 + 2*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^4 + 2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
              4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 - 
              2*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/384)*(-8*CommonMass^2*XXX[m1/CommonMass]^10*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3 + 
          XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^10 + 8*(-TheMass[InF]^2 + 
              TheMass[OutF]^2)*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 - 27*TheMass[OutF]^2*
             XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^8*(5*TheMass[InF]^2 - 
              9*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 8*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^6*(TheMass[InF]^2 - CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^8*(-5*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*
           (-8*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(4*TheMass[InF]^2 - 
              3*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-4*TheMass[InF]^2 + 9*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-24*CommonMass^2*XXX[m2/CommonMass]^8 + 
            27*TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
            27*(-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
            XXX[m3/CommonMass]^6*(13*TheMass[InF]^2 - 10*TheMass[OutF]^2 - 
              8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^6*(-13*TheMass[InF]^2 + 
              19*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^6*(TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              8*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m3/CommonMass]^6*(TheMass[InF]^2 + 
              4*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^2*(3*(TheMass[InF]^2 + TheMass[OutF]^2) + 
              32*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*
             (3*TheMass[InF]^2 + 10*TheMass[OutF]^2 + 40*CommonMass^2*XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(24*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(6*TheMass[InF]^2 - 19*TheMass[OutF]^2 - 
              40*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-6*TheMass[InF]^2 + 
              3*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-8*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^4))))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
           (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^5*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
         ((I/48)*TheMass[InF]*XXX[m2/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/96)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^6*
           (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*
           (XXX[m1/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/96)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 
              4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/384)*TheMass[InF]*
           TheMass[OutF]*(-(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^6*(5*XXX[m2/CommonMass]^2 + 
               XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^6*(4*XXX[m2/CommonMass]^6 - 6*XXX[m2/CommonMass]^
                4*XXX[m3/CommonMass]^2 + 13*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 5*XXX[m3/CommonMass]^6) - 
            XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 14*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
                4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + XXX[m3/CommonMass]^8) + 
            XXX[m1/CommonMass]^2*(13*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
                6 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^8)))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       (RCF*(((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2) - ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
                2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*
             XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^4 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
                2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           ((I/32)*(-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^3*(
                2*XXX[m2/CommonMass]^3 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
             (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
             (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
             (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
           ((I/48)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
              XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
                XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
          (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
          TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
        ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/2304)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^6 - 
           29*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 65*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 
           31*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
        ((I/96)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
        ((I/96)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^4*(6*CommonMass^2*XXX[m1/CommonMass]^6 - 
             TheMass[InF]^2*XXX[m3/CommonMass]^4 + 6*XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 2*
                CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
              (-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
          ((I/96)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4*(6*CommonMass^2*XXX[m1/CommonMass]^6 - 
             TheMass[InF]^2*XXX[m3/CommonMass]^4 + 6*XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 2*
                CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
              (-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) - 
          ((I/2304)*(12*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(TheMass[InF]^2 + 2*
                TheMass[OutF]^2 - 84*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*
              (37*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 24*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(29*TheMass[InF]^2 - 94*TheMass[OutF]^
                 2 - 12*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*
              (-7*TheMass[InF]^2 - 22*TheMass[OutF]^2 + 108*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
            (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + ((I/48)*Log[XXX[m3/CommonMass]]*
            TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + 
             XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
          ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
           3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           5) + ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
           3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
           5) + ((I/576)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
           8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
        ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
        ((I/1152)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
           29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
           XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
             XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(2*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
          ((I/96)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
             XXX[m1/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*
                XXX[m2/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*(2*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) + CommonMass^2*XXX[m2/CommonMass]^2)))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
          ((I/2304)*(44*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(37*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) - 116*CommonMass^2*XXX[m2/CommonMass]^2) + 
             XXX[m2/CommonMass]^6*(TheMass[InF]^2 + TheMass[OutF]^2 + 8*CommonMass^2*
                XXX[m2/CommonMass]^2) - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*(7*(TheMass[InF]^2 + 
                 TheMass[OutF]^2) + 44*CommonMass^2*XXX[m2/CommonMass]^2) + 
             XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(29*(TheMass[InF]^2 + TheMass[OutF]^2) + 
               108*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
             5))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
             3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + ((I/48)*Log[XXX[m2/CommonMass]]*
            TheMass[OutF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
           (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
          ((I/576)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
             8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
           (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
          (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
          (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
          (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + ((I/48)*TheMass[InF]*XXX[m1/CommonMass]*
          (XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - 
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(((-I/96)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
          (-2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + 
           XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/96)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
          (XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
            (2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - ((I/96)*Log[XXX[m1/CommonMass]]*
          TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*(2*XXX[m1/CommonMass]^6 + 
           2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
            (XXX[m2/CommonMass]^4 + 12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) + ((I/384)*TheMass[InF]*TheMass[OutF]*
          (4*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6 - 10*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^8*(9*XXX[m2/CommonMass]^4 - 10*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2 + 9*XXX[m3/CommonMass]^4) - XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^6 + 
             11*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 11*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
             3*XXX[m3/CommonMass]^6)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/96)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m1/CommonMass]^8 + 
             4*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^6*
              (TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2 - 4*CommonMass^2*
                XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               CommonMass^2*XXX[m3/CommonMass]^4) + 2*XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
               XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
                (TheMass[InF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^2*
              (TheMass[InF]^2*XXX[m3/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
                (3*(TheMass[InF]^2 + TheMass[OutF]^2) + 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
               XXX[m2/CommonMass]^4*(TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2))))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*Log[XXX[m3/CommonMass]]*
            XXX[m3/CommonMass]^4*(-(TheMass[InF]^2*XXX[m3/CommonMass]^8) + XXX[m2/CommonMass]^4*
              XXX[m3/CommonMass]^4*(TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
             2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6*(-TheMass[InF]^2 + TheMass[OutF]^2 + 2*
                CommonMass^2*XXX[m3/CommonMass]^2) + 2*CommonMass^2*XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^4 - 4*
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^4*
              (2*XXX[m2/CommonMass]^4*(3*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) - 4*
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 - 
                 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
                 TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2)) + 2*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 
                 2*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*
                (TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
                (-2*TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2))))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/96)*Log[XXX[m2/CommonMass]]*
            XXX[m2/CommonMass]^4*(TheMass[InF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
             XXX[m2/CommonMass]^8*(TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) - 
             2*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2*(-TheMass[InF]^2 + TheMass[OutF]^2 + 2*
                CommonMass^2*XXX[m3/CommonMass]^2) + 2*CommonMass^2*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^4 - 4*
                XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 3*XXX[m3/CommonMass]^4) + 2*XXX[m1/CommonMass]^2*
              (CommonMass^2*XXX[m2/CommonMass]^8 - 2*TheMass[InF]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
               XXX[m2/CommonMass]^6*(TheMass[InF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + 
               XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^
                   2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(-4*CommonMass^2*
                XXX[m2/CommonMass]^6 + 6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*
                XXX[m3/CommonMass]^2*(TheMass[InF]^2 + TheMass[OutF]^2 + 
                 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 + 
                 TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2))))/
           (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
          ((I/384)*(4*CommonMass^2*XXX[m1/CommonMass]^10*(XXX[m2/CommonMass]^6 - XXX[m2/CommonMass]^4*
                XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6) + 
             XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(12*CommonMass^2*XXX[m2/CommonMass]^6 + 
               XXX[m3/CommonMass]^4*(13*TheMass[InF]^2 - 3*TheMass[OutF]^2 - 
                 12*CommonMass^2*XXX[m3/CommonMass]^2) - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
                (-2*TheMass[InF]^2 + 2*TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
               XXX[m2/CommonMass]^4*(3*TheMass[InF]^2 - 13*TheMass[OutF]^2 + 
                 4*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*
              ((-TheMass[InF]^2 + 5*TheMass[OutF]^2)*XXX[m2/CommonMass]^2 - 4*CommonMass^2*
                XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(-5*TheMass[InF]^2 + TheMass[OutF]^
                  2 + 4*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^8*(-8*CommonMass^2*
                XXX[m2/CommonMass]^8 - (13*TheMass[InF]^2 + 6*TheMass[OutF]^2)*
                XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*(5*TheMass[InF]^2 + 
                 4*TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
                XXX[m3/CommonMass]^4*(6*TheMass[InF]^2 + 13*TheMass[OutF]^2 + 
                 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(-4*TheMass[InF]^2 - 
                 5*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2)) + 
             XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-12*CommonMass^2*XXX[m2/CommonMass]^8 + 27*
                TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
                (-3*TheMass[InF]^2 + 6*TheMass[OutF]^2 - 16*CommonMass^2*XXX[m3/CommonMass]^
                   2) + 3*XXX[m3/CommonMass]^6*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(-27*TheMass[InF]^2*
                  XXX[m3/CommonMass]^4 + 16*CommonMass^2*XXX[m3/CommonMass]^6)) + XXX[m1/CommonMass]^6*
              (4*CommonMass^2*XXX[m2/CommonMass]^10 - 8*TheMass[InF]^2*XXX[m2/CommonMass]^6*
                XXX[m3/CommonMass]^2 - 27*(-TheMass[InF]^2 + TheMass[OutF]^2)*
                XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8*(-4*TheMass[InF]^2 + 
                 TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^8*
                (TheMass[InF]^2 - 4*TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2) + 
               4*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^6 - 5*CommonMass^2*
                  XXX[m3/CommonMass]^8))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
            (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
            (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
            (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) + 
          ((I/48)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
             XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
                2) + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
               XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((-I/576)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^6 - 
          11*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 47*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          3*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
       ((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
       ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
       ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
         ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
             (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/24)*Log[XXX[m3/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
           ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((I/1152)*(-88*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(
                29*TheMass[InF]^2 - 7*TheMass[OutF]^2 - 216*CommonMass^2*XXX[m3/CommonMass]^
                  2) + XXX[m3/CommonMass]^6*(-31*TheMass[InF]^2 + 37*TheMass[OutF]^2 - 
                16*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(
                65*TheMass[InF]^2 + 29*TheMass[OutF]^2 + 88*CommonMass^2*XXX[m3/CommonMass]^
                  2) + XXX[m1/CommonMass]^6*(-3*TheMass[InF]^2 + TheMass[OutF]^2 + 
                232*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^5) - ((I/48)*Log[XXX[m1/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^8*
               XXX[m3/CommonMass]^2 + 36*CommonMass^2*XXX[m1/CommonMass]^6*XXX[m3/CommonMass]^4 + 
              XXX[m3/CommonMass]^8*(-TheMass[InF]^2 + TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6*(
                TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(
                6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 40*CommonMass^2*XXX[m3/CommonMass]^6)))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*(-12*CommonMass^2*XXX[m1/CommonMass]^8*XXX[m3/CommonMass]^2 + 
              36*CommonMass^2*XXX[m1/CommonMass]^6*XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^8*(
                -TheMass[InF]^2 + TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
              4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^6*(TheMass[OutF]^2 + 5*CommonMass^2*
                 XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*(6*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
                40*CommonMass^2*XXX[m3/CommonMass]^6)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              6))*G[-1][0][-OutF, -F[Index[Generic, 6]], 
            V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], 
            ChirProj[1]]])*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/1152)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
          29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
          XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
         (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
       ((I/288)*TheMass[InF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
          8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
          3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          5) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^7 + 
          3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          5) - ((I/288)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
          8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^7 + 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
           TheMass[OutF]*(XXX[m1/CommonMass]^7 + 3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/288)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/32)*XXX[m1/CommonMass]*XXX[m2/CommonMass]*(5*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/24)*Log[XXX[m2/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m1/CommonMass]^2 + 
              3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
           ((I/288)*TheMass[OutF]*XXX[m2/CommonMass]*(-17*XXX[m1/CommonMass]^4 - 
              8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6 + 
              18*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(
                4*TheMass[InF]^2 - 2*TheMass[OutF]^2 + 21*CommonMass^2*XXX[m2/CommonMass]^2) + 
              XXX[m1/CommonMass]^4*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                30*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              6) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6 + 
              18*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(
                4*TheMass[InF]^2 - 2*TheMass[OutF]^2 + 21*CommonMass^2*XXX[m2/CommonMass]^2) + 
              XXX[m1/CommonMass]^4*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                30*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              6) + ((I/1152)*(60*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m1/CommonMass]^6*(
                74*TheMass[InF]^2 - 37*TheMass[OutF]^2 - 384*CommonMass^2*
                 XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*(
                7*(-2*TheMass[InF]^2 + TheMass[OutF]^2) - 384*CommonMass^2*
                 XXX[m2/CommonMass]^2) + XXX[m2/CommonMass]^6*(2*TheMass[InF]^2 - TheMass[OutF]^
                 2 + 60*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(
                58*TheMass[InF]^2 - 29*TheMass[OutF]^2 + 648*CommonMass^2*
                 XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^6*
         (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*
         (XXX[m1/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^4 - 4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 
            4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4) + ((I/192)*TheMass[InF]*TheMass[OutF]*
         (-(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^6*(5*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
          XXX[m1/CommonMass]^6*(4*XXX[m2/CommonMass]^6 - 6*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
            13*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 5*XXX[m3/CommonMass]^6) - 
          XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 14*XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + XXX[m3/CommonMass]^8) + 
          XXX[m1/CommonMass]^2*(13*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^4 + 3*XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^8)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
         (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         (XXX[m2/CommonMass]^7*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^7 - 3*XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3) - ((I/24)*TheMass[InF]*(XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^4 - 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*(XXX[m1/CommonMass]^9 - 
          3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^7*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/24)*TheMass[InF]*(XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
          XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^5*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^9 - 
            3*XXX[m1/CommonMass]^5*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^7*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
         ((I/24)*TheMass[OutF]*(XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^5*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]*(XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^4 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*(-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^3*
             (2*XXX[m2/CommonMass]^3 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(((I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*
             (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4*
             (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
           ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*(XXX[m2/CommonMass]^7*(XXX[m2/CommonMass]^2 + 
                XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^7 - 3*XXX[m2/CommonMass]^5*
                 XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - ((I/24)*TheMass[OutF]*
             (XXX[m2/CommonMass]^5*XXX[m3/CommonMass]^4 - XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2*(
                XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]*(
                XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
            (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^6*
               (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2 + XXX[m2/CommonMass]^4*(6*CommonMass^2*
                 XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 16*CommonMass^2*
                   XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
                  TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) + 
              XXX[m1/CommonMass]^4*(26*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*
                 (-2*TheMass[InF]^2 + TheMass[OutF]^2 - 64*CommonMass^2*XXX[m3/CommonMass]^
                    2) - 6*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
                  2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*
                 (4*TheMass[InF]^2 - 2*TheMass[OutF]^2 + 25*CommonMass^2*XXX[m3/CommonMass]^
                    2)) - 2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(13*CommonMass^2*XXX[m2/CommonMass]^6 + 
                XXX[m2/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 - 34*CommonMass^2*
                   XXX[m3/CommonMass]^2) - 2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
                  TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
                  29*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
                2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*(-6*CommonMass^2*XXX[m1/CommonMass]^6*
               (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2) + 
              XXX[m3/CommonMass]^6*(6*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(TheMass[InF]^2 - 
                  16*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-TheMass[InF]^2 + 
                  TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) + 
              2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(-12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[InF]^2 - 3*TheMass[OutF]^2 - 
                  26*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(TheMass[InF]^2 + 
                  7*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 
                  31*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(
                30*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m2/CommonMass]^4*(6*TheMass[InF]^2 - 
                  76*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m3/CommonMass]^4*(-2*TheMass[InF]^2 + 
                  TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(-4*TheMass[InF]^2 + 2*TheMass[OutF]^2 + 
                  31*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
           ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m1/CommonMass]^10 + 
              6*CommonMass^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2) + 
              XXX[m1/CommonMass]^8*(-2*TheMass[InF]^2 + TheMass[OutF]^2 + 
                26*CommonMass^2*XXX[m2/CommonMass]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^6*(
                -13*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(-TheMass[InF]^2 + 
                  TheMass[OutF]^2 - 34*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m3/CommonMass]^2*
                 (TheMass[InF]^2 + 7*CommonMass^2*XXX[m3/CommonMass]^2)) - 2*XXX[m1/CommonMass]^2*
               XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(6*CommonMass^2*XXX[m2/CommonMass]^4 + 2*XXX[m3/CommonMass]^2*
                 (TheMass[InF]^2 - TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
                XXX[m2/CommonMass]^2*(2*TheMass[InF]^2 + 25*CommonMass^2*XXX[m3/CommonMass]^2)) + 
              XXX[m1/CommonMass]^4*(6*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
                  TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(6*TheMass[InF]^2 - 3*TheMass[OutF]^2 + 
                  29*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(TheMass[InF]^2 + 
                  64*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
                2)^4*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           ((I/192)*(4*CommonMass^2*XXX[m1/CommonMass]^10*(2*XXX[m2/CommonMass]^6 - 3*XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6) - XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*(
                4*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*(4*TheMass[InF]^2 + 
                  TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
                 (-4*TheMass[InF]^2 + 5*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                    2)) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(8*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 7*CommonMass^2*XXX[m3/CommonMass]^2) + 
                XXX[m2/CommonMass]^4*(10*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
                  28*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-10*TheMass[InF]^2 + 
                  13*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^2)) + 
              XXX[m1/CommonMass]^8*(XXX[m2/CommonMass]^6*(-9*TheMass[InF]^2 + 5*TheMass[OutF]^
                    2 - 44*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*
                 (-19*TheMass[InF]^2 + 6*TheMass[OutF]^2 - 28*CommonMass^2*
                   XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(9*TheMass[InF]^2 - 
                  4*TheMass[OutF]^2 - 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*
                 XXX[m3/CommonMass]^2*(19*TheMass[InF]^2 - 13*TheMass[OutF]^2 + 
                  80*CommonMass^2*XXX[m3/CommonMass]^2)) - XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
                2*(-12*CommonMass^2*XXX[m2/CommonMass]^8 + 27*(-TheMass[InF]^2 + TheMass[OutF]^
                   2)*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^6*
                 (-3*TheMass[InF]^2 + 6*TheMass[OutF]^2 + 28*CommonMass^2*XXX[m3/CommonMass]^
                    2) + XXX[m2/CommonMass]^6*(3*(TheMass[InF]^2 + TheMass[OutF]^2) + 
                  80*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(9*TheMass[InF]^2*
                   XXX[m3/CommonMass]^2 - 32*CommonMass^2*XXX[m3/CommonMass]^4)) + XXX[m1/CommonMass]^6*(
                -8*CommonMass^2*XXX[m2/CommonMass]^10 + 8*(TheMass[InF]^2 - TheMass[OutF]^2)*
                 XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 - 8*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6*
                 (TheMass[InF]^2 - 7*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^8*
                 (-3*TheMass[InF]^2 + 4*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^
                    2) + XXX[m2/CommonMass]^8*(3*TheMass[InF]^2 + TheMass[OutF]^2 + 
                  44*CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(9*TheMass[OutF]^2*
                   XXX[m3/CommonMass]^4 - 32*CommonMass^2*XXX[m3/CommonMass]^6))))/
            (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((I/144)*TheMass[InF]*(2*XXX[m1/CommonMass]^4 + 11*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 7*XXX[m3/CommonMass]^4))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/24)*Log[XXX[m1/CommonMass]]*
          TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^6))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/64)*(XXX[m1/CommonMass]^3 + 5*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/288)*TheMass[InF]*(3*XXX[m1/CommonMass]^6 + 13*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*G[1][0][-F[Index[Generic, 4]], InF, 
         -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
          XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        ((I/192)*(-2*XXX[m1/CommonMass]^5 - 5*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 + 
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*XXX[m2/CommonMass]^2*
          (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 4]], 
         InF, -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
          (3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^6 + 
             3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/96)*TheMass[InF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + 
           3*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 7*XXX[m1/CommonMass]^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 + 14*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m3/CommonMass]^4)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*G[1][0][-F[Index[Generic, 4]], 
         InF, -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-XXX[m2/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) + ((I/32)*(-2*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^3*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
          (2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
        ((I/64)*(XXX[m1/CommonMass]^3 + 5*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((I/144)*TheMass[OutF]*(2*XXX[m1/CommonMass]^4 + 11*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 - 7*XXX[m3/CommonMass]^4))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/24)*Log[XXX[m1/CommonMass]]*
          TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^6))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
           XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + ((I/16)*Log[XXX[m2/CommonMass]]*
          XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        ((I/192)*(-2*XXX[m1/CommonMass]^5 - 5*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 + 
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/(CommonMass^3*Pi^2*XXX[m2/CommonMass]^2*
          (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/12)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/12)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) + 
        ((I/288)*TheMass[OutF]*(3*XXX[m1/CommonMass]^6 + 13*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 
           5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-XXX[m2/CommonMass]^4 + 
           2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) + ((I/32)*(-2*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^3*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
         (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]] + 
      RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6*
          (2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           3) - ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
          (3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^6*
            (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^6 + 
             3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
        ((I/96)*TheMass[OutF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + 
           3*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 7*XXX[m1/CommonMass]^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 + 14*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
             XXX[m3/CommonMass]^4)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        ((I/24)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*(3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^6*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
           XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6)))/
         (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
          (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
        MetTen[KI1[2], KI1[3]]])
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(((-I/1152)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^6 - 
          29*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 65*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 
          31*XXX[m3/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - 
       ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
       ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^8))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
       ((I/192)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) - ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*(3*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^5) + 
         ((I/192)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^4 - 8*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 17*XXX[m3/CommonMass]^4))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m3/CommonMass]^2*
           (-12*CommonMass^2*XXX[m1/CommonMass]^8 + XXX[m3/CommonMass]^6*(-3*TheMass[InF]^2 + 
              4*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) - 6*XXX[m1/CommonMass]^4*
             XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
              CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - 
              TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m1/CommonMass]^6*
             (-TheMass[InF]^2 + TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
         ((I/48)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^2*(12*CommonMass^2*XXX[m1/CommonMass]^8 + 
            6*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^
                2 + CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*
             (TheMass[InF]^2 - TheMass[OutF]^2 + 3*CommonMass^2*XXX[m3/CommonMass]^2) - 
            6*XXX[m1/CommonMass]^6*(-TheMass[InF]^2 + TheMass[OutF]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(3*TheMass[InF]^2 - 
              4*TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^6) + 
         ((I/1152)*(60*CommonMass^2*XXX[m1/CommonMass]^8 + (43*TheMass[InF]^2 - 
              14*TheMass[OutF]^2)*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(-209*TheMass[InF]^2 + 274*TheMass[OutF]^
                2 - 168*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^6*(19*TheMass[InF]^2 - 
              22*TheMass[OutF]^2 - 24*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^6*(87*TheMass[InF]^2 - 118*TheMass[OutF]^2 + 
              132*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            5))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(((-I/24)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/24)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         (XXX[m1/CommonMass]^8 + 4*XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^6) + 
       ((I/576)*TheMass[InF]*TheMass[OutF]*(37*XXX[m1/CommonMass]^6 + 
          29*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
          XXX[m2/CommonMass]^6))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
         (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^5*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
       ((I/192)*TheMass[InF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
          8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
           (XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - ((I/16)*Log[XXX[m2/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]^5*(XXX[m1/CommonMass]^2 + 3*XXX[m2/CommonMass]^2))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^5) - 
         ((I/192)*TheMass[OutF]*XXX[m1/CommonMass]*(17*XXX[m1/CommonMass]^4 + 
            8*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (4*CommonMass^2*XXX[m1/CommonMass]^6 - 12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 20*CommonMass^2*XXX[m2/CommonMass]^2) + 
            2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 5*TheMass[OutF]^2 + 
              14*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            6) - ((I/48)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*(4*CommonMass^2*XXX[m1/CommonMass]^6 - 
            12*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*(-7*TheMass[InF]^2 + 
              5*TheMass[OutF]^2 - 20*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m1/CommonMass]^2*
             XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 5*TheMass[OutF]^2 + 
              14*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            6) + ((I/1152)*(XXX[m1/CommonMass]^6*XXX[m2/CommonMass]^2*(-97*TheMass[InF]^2 + 
              23*TheMass[OutF]^2 - 256*CommonMass^2*XXX[m2/CommonMass]^2) + 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^6*(-29*TheMass[InF]^2 + 43*TheMass[OutF]^
                2 - 256*CommonMass^2*XXX[m2/CommonMass]^2) + 2*XXX[m1/CommonMass]^8*
             (-9*TheMass[InF]^2 + 9*TheMass[OutF]^2 + 20*CommonMass^2*XXX[m2/CommonMass]^2) + 
            XXX[m2/CommonMass]^8*(5*TheMass[InF]^2 - 7*TheMass[OutF]^2 + 
              40*CommonMass^2*XXX[m2/CommonMass]^2) + XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^4*
             (79*TheMass[InF]^2 - 137*TheMass[OutF]^2 + 432*CommonMass^2*XXX[m2/CommonMass]^
                2)))/(CommonMass^4*Pi^2*XXX[m2/CommonMass]^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^5))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m2/CommonMass]^4*
         (-2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + 
          XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^4 + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          3) - ((I/48)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^4*(6*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 2*XXX[m1/CommonMass]^2*
           (2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/48)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*XXX[m1/CommonMass]^6*
         (2*XXX[m1/CommonMass]^6 + 2*XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) - 
          XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + 12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]*TheMass[OutF]*
         (4*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6 - 10*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 3*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^4 + 10*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^8*(9*XXX[m2/CommonMass]^4 - 10*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + 9*XXX[m3/CommonMass]^4) - XXX[m1/CommonMass]^6*(3*XXX[m2/CommonMass]^6 + 
            11*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 11*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
            3*XXX[m3/CommonMass]^6)))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^5*
         (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
         (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^
          3) - ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
          XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^5*
           (XXX[m1/CommonMass]^4 - 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4*
           (XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(CommonMass^3*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 - 
            XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
              XXX[m3/CommonMass]^4)))/(CommonMass^3*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(((-I/48)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^2*
           (2*XXX[m1/CommonMass]^6*(2*CommonMass^2*XXX[m2/CommonMass]^6 - 2*CommonMass^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
                2 - 6*XXX[m3/CommonMass]^4*(TheMass[InF]^2 - TheMass[OutF]^2 + 
                CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[InF]^
                 2 - TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m2/CommonMass]^6*(-6*CommonMass^2*XXX[m2/CommonMass]^6 - 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 + 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(3*TheMass[InF]^2 - 
                4*TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) - 
            2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*(-8*CommonMass^2*XXX[m2/CommonMass]^6 + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 2*TheMass[OutF]^2 - 
                8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(-3*TheMass[InF]^2 + 
                4*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m3/CommonMass]^4*(
                3*TheMass[InF]^2 - 4*TheMass[OutF]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*(-14*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m2/CommonMass]^
                2*XXX[m3/CommonMass]^2*(2*(TheMass[InF]^2 + TheMass[OutF]^2) - 
                13*CommonMass^2*XXX[m3/CommonMass]^2) + 6*XXX[m3/CommonMass]^4*(3*TheMass[InF]^2 - 
                4*TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(
                -7*TheMass[InF]^2 + 5*TheMass[OutF]^2 + 10*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - ((I/48)*Log[XXX[m3/CommonMass]]*
           XXX[m3/CommonMass]^2*(XXX[m3/CommonMass]^6*(6*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*(
                -3*TheMass[InF]^2 + 4*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 3*TheMass[OutF]^2 - 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -TheMass[InF]^2 + TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2)) + 
            2*XXX[m1/CommonMass]^6*(-6*CommonMass^2*XXX[m2/CommonMass]^6 + 2*CommonMass^2*XXX[m3/CommonMass]^6 - 
              2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-3*TheMass[InF]^2 + 
                3*TheMass[OutF]^2 + CommonMass^2*XXX[m3/CommonMass]^2) + 3*XXX[m2/CommonMass]^4*(
                -TheMass[InF]^2 + TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4*(-12*CommonMass^2*XXX[m2/CommonMass]^6 + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(5*TheMass[InF]^2 - 6*TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(5*TheMass[InF]^2 - 
                6*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(
                -4*TheMass[InF]^2 + 6*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^
                  2)) + XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2*(30*CommonMass^2*XXX[m2/CommonMass]^6 + 
              XXX[m3/CommonMass]^4*(-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
                14*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                -10*TheMass[InF]^2 + 14*TheMass[OutF]^2 + 5*CommonMass^2*XXX[m3/CommonMass]^
                  2) - 2*XXX[m2/CommonMass]^4*(-6*TheMass[InF]^2 + 9*TheMass[OutF]^2 + 
                13*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/48)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*(4*CommonMass^2*XXX[m1/CommonMass]^10 - 
            6*CommonMass^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^8*(-7*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
              14*CommonMass^2*XXX[m2/CommonMass]^2 - 14*CommonMass^2*XXX[m3/CommonMass]^2) + 
            2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(6*CommonMass^2*XXX[m2/CommonMass]^4 - 
              2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 6*CommonMass^2*XXX[m3/CommonMass]^4 + 
              XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 3*TheMass[OutF]^2 + 
                14*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^4*(-6*CommonMass^2*XXX[m2/CommonMass]^6 + 
              XXX[m2/CommonMass]^4*(-2*TheMass[InF]^2 + 3*TheMass[OutF]^2 - 
                38*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^4*(-3*TheMass[InF]^2 + 
                4*TheMass[OutF]^2 - 6*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^2*(3*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 
                19*CommonMass^2*XXX[m3/CommonMass]^2)) + 2*XXX[m1/CommonMass]^6*(8*CommonMass^2*XXX[m2/CommonMass]^4 + 
              XXX[m3/CommonMass]^2*(5*TheMass[InF]^2 - 6*TheMass[OutF]^2 + 
                8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*(3*TheMass[InF]^2 - 
                4*TheMass[OutF]^2 + 20*CommonMass^2*XXX[m3/CommonMass]^2))))/
          (CommonMass^4*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/192)*(-2*XXX[m1/CommonMass]^10*(-2*CommonMass^2*XXX[m2/CommonMass]^6 + 2*XXX[m2/CommonMass]^4*(
                -2*TheMass[InF]^2 + 2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m3/CommonMass]^4*(5*TheMass[InF]^2 - 5*TheMass[OutF]^2 + 
                2*CommonMass^2*XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(
                TheMass[InF]^2 - TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^6*((-7*TheMass[InF]^2 + 11*TheMass[OutF]^2)*
               XXX[m2/CommonMass]^2 - 16*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^2*(
                13*TheMass[InF]^2 - 17*TheMass[OutF]^2 + 16*CommonMass^2*XXX[m3/CommonMass]^
                  2)) + XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*
             (36*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m3/CommonMass]^4*(-37*TheMass[InF]^2 + 
                47*TheMass[OutF]^2 - 36*CommonMass^2*XXX[m3/CommonMass]^2) - 2*XXX[m2/CommonMass]^
                2*XXX[m3/CommonMass]^2*(9*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 
                26*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^4*(19*TheMass[InF]^2 - 
                29*TheMass[OutF]^2 + 52*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^8*(-8*CommonMass^2*XXX[m2/CommonMass]^8 + (-35*TheMass[InF]^2 + 
                16*TheMass[OutF]^2)*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
              XXX[m2/CommonMass]^6*(-3*TheMass[InF]^2 + 12*TheMass[OutF]^2 - 
                64*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(12*TheMass[InF]^2 - 
                21*TheMass[OutF]^2 + 8*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^4*(80*TheMass[InF]^2 - 61*TheMass[OutF]^2 + 
                64*CommonMass^2*XXX[m3/CommonMass]^2)) + XXX[m1/CommonMass]^6*(4*CommonMass^2*XXX[m2/CommonMass]^10 + 
              XXX[m3/CommonMass]^8*(-2*TheMass[InF]^2 + 5*TheMass[OutF]^2 - 
                4*CommonMass^2*XXX[m3/CommonMass]^2) - 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4*(
                9*TheMass[InF]^2 - 9*TheMass[OutF]^2 + 32*CommonMass^2*XXX[m3/CommonMass]^2) - 
              2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6*(51*TheMass[InF]^2 - 
                55*TheMass[OutF]^2 + 34*CommonMass^2*XXX[m3/CommonMass]^2) + 2*XXX[m2/CommonMass]^
                6*XXX[m3/CommonMass]^2*(17*TheMass[InF]^2 - 21*TheMass[OutF]^2 + 
                48*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^8*(TheMass[InF]^2 - 
                4*TheMass[OutF]^2 + 68*CommonMass^2*XXX[m3/CommonMass]^2)) + 
            XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(-24*CommonMass^2*XXX[m2/CommonMass]^8 + 
              (-26*TheMass[InF]^2 + 53*TheMass[OutF]^2)*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
                2 + XXX[m2/CommonMass]^6*(-13*TheMass[InF]^2 + 16*TheMass[OutF]^2 - 
                112*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^6*(32*TheMass[InF]^2 - 
                35*TheMass[OutF]^2 + 24*CommonMass^2*XXX[m3/CommonMass]^2) + 
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4*(91*TheMass[InF]^2 - 118*TheMass[OutF]^
                  2 + 112*CommonMass^2*XXX[m3/CommonMass]^2))))/(CommonMass^4*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperMonOpR2[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/(64*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         (TheMass[OutF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
        (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       (Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
        (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       (TheMass[InF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
          2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
        (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass])/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (-3*XXX[m1/CommonMass]^2*XXX[m2/CommonMass] + XXX[m2/CommonMass]^3)/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         (TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^4))/(576*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
        (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
        (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (TheMass[InF]*(2*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
          XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(XXX[m1/CommonMass]^3/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
         (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
            XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         XXX[m2/CommonMass]^3/(32*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^3*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         (Log[XXX[m2/CommonMass]]*TheMass[OutF]*(2*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^6 - 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         (TheMass[OutF]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
                2)) + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^4)))/
          (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         (Log[XXX[m3/CommonMass]]*TheMass[OutF]*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]] + 
     RCF*((Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^6)/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (TheMass[InF]*(-(XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4) + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))/(96*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (-3*XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
       (Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*G[-1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     ((RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          (XXX[m1/CommonMass]^3 - 3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(64*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
          (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          (TheMass[OutF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
             2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - (Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        (TheMass[InF]*(2*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           11*XXX[m3/CommonMass]^4))/(576*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     ((RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
            XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
          (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
          (Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
          (TheMass[OutF]*(-2*XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
             XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
         (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
         (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        (TheMass[InF]*(-2*XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
           XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     ((RCF*(-XXX[m1/CommonMass]^3/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m2/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + (Log[XXX[m1/CommonMass]]*
            (-2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^5*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(-(Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^6)/(48*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
          (TheMass[OutF]*(XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
             XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(96*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
            XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
              (-3*XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
          (Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 2*
                XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      RCF*(-(Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
         (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
        (TheMass[InF]*(-(XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(96*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
          XXX[m1/CommonMass]^4*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
            (2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(8*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       (TheMass[OutF]*(5*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
          4*XXX[m3/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4))/(8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (4*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/(4*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(16*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
        (4*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/(4*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(16*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     RCF*((Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(8*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       (TheMass[InF]*(5*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
          4*XXX[m3/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m1/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4))/(8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
            XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (TheMass[OutF]*(16*XXX[m1/CommonMass]^4 - 29*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          7*XXX[m2/CommonMass]^4))/(288*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(8*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass])/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
          3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       (-3*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/(32*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
        (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/(8*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (TheMass[InF]*(11*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          2*XXX[m2/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
            XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         XXX[m2/CommonMass]^6*(2*XXX[m1/CommonMass]^2 - 3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       (TheMass[OutF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 - 2*XXX[m3/CommonMass]^4)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
         (-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + 
          2*XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 3*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^6)))/(24*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(8*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^5)/(8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - (XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
        (16*CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m1/CommonMass]^2 + 
          XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*(-(XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/
        (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4)/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - (XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
        (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
          XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*
         (-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^3*
           (2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
        (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]] + 
     RCF*((Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
          2*XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^6*(-3*XXX[m1/CommonMass]^2 + 2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m3/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
           (6*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (-6*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (TheMass[InF]*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
           (XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 2*XXX[m3/CommonMass]^4)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
       (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
      (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(8*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)/
       (32*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
     G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
      NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)/
       (64*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^
         3))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
      NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
         XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + XXX[m3/CommonMass]^2/
       (32*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
         XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + 
         XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
       (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][-OutF, F[Index[Generic, 4]], 
       -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
       ChirProj[1]]]*G[1][0][-F[Index[Generic, 4]], InF, 
       -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
       (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
      (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(8*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)/
       (32*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
     G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
      NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)/
       (64*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^
         3))*G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
      NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
         XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + XXX[m3/CommonMass]^2/
       (32*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
         XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + 
         XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
       (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][-F[Index[Generic, 4]], InF, 
       -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], 
       ChirProj[-1]]]*G[1][0][-OutF, F[Index[Generic, 4]], 
       -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*(4*XXX[m1/CommonMass]^4 - 
           3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4))/
        (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*(4*XXX[m1/CommonMass]^4 - 
          3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4))/(16*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       (TheMass[OutF]*(13*XXX[m1/CommonMass]^4 - 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((-9*XXX[m1/CommonMass]^3 + 3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/
        (64*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (3*Log[XXX[m1/CommonMass]]*(2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/
        (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m3/CommonMass]]*(-6*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 + 3*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((TheMass[InF]*(16*XXX[m1/CommonMass]^4 - 29*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          7*XXX[m3/CommonMass]^4))/(288*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       (Log[XXX[m1/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       (Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       (TheMass[OutF]*(31*XXX[m1/CommonMass]^4 - 26*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          7*XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((3*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (3*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/
        (8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
       (3*(3*XXX[m1/CommonMass]^3 - XXX[m1/CommonMass]*XXX[m2/CommonMass]^2))/
        (32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       (TheMass[InF]*(31*XXX[m1/CommonMass]^4 - 26*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          7*XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*(9*XXX[m1/CommonMass]^8 + 
          3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - 4*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + 
            2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (TheMass[OutF]*(-4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^4*(-5*XXX[m2/CommonMass]^2 + 8*XXX[m3/CommonMass]^2)))/
        (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         (-4*XXX[m2/CommonMass]^6 + 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^2*(9*XXX[m2/CommonMass]^4 - 6*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
         (4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 - 3*XXX[m3/CommonMass]^8 + 3*XXX[m1/CommonMass]^4*
           (4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - 3*XXX[m3/CommonMass]^4) + 
          XXX[m1/CommonMass]^2*(-12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 8*XXX[m3/CommonMass]^6)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     RCF*((3*XXX[m1/CommonMass]^3)/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (3*Log[XXX[m2/CommonMass]]*(2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 - XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/
        (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
          XXX[m3/CommonMass]^2)) + (3*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5*
         (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2) + (3*Log[XXX[m3/CommonMass]]*(-2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*G[-1][0][-OutF, F[Index[Generic, 4]], 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[1]]]*G[-1][0][OutV, V[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[-Mom[1] + Mom[2], KI1[3]]*
         MetTen[KI1[1], KI1[2]] + FourVec[Mom[1] - Mom[3], KI1[2]]*
         MetTen[KI1[1], KI1[3]] + FourVec[-Mom[2] + Mom[3], KI1[1]]*
         MetTen[KI1[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], 
        ChirProj[-1]]] + 
     RCF*((Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 4*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(6*XXX[m2/CommonMass]^2 - 9*XXX[m3/CommonMass]^2)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^4*(9*XXX[m1/CommonMass]^4 + 3*XXX[m2/CommonMass]^4 - 4*XXX[m1/CommonMass]^2*
           (2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (TheMass[InF]*(4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^4*(-8*XXX[m2/CommonMass]^2 + 5*XXX[m3/CommonMass]^2)))/
        (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*(-3*XXX[m2/CommonMass]^6 + 
          4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^4*(-9*XXX[m2/CommonMass]^2 + 
            12*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^4 - 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpL1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    (RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         (TheMass[OutF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         (Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         (TheMass[InF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    (RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         (TheMass[OutF]*(11*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
            2*XXX[m2/CommonMass]^4))/(576*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass])/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (-3*XXX[m1/CommonMass]^2*XXX[m2/CommonMass] + XXX[m2/CommonMass]^3)/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
         (TheMass[InF]*(2*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 - 
            XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, S, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    (RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^6)/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         (Log[XXX[m2/CommonMass]]*TheMass[OutF]*(2*XXX[m2/CommonMass]^6*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^6 - 3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         (TheMass[OutF]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
                2)) + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + XXX[m3/CommonMass]^4)))/
          (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         (Log[XXX[m3/CommonMass]]*TheMass[OutF]*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m3/CommonMass]^6)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[-1]]] + 
       RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         XXX[m2/CommonMass]^3/(32*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^3*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[-1]]]*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[1]]])*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^6)/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         (TheMass[InF]*(-(XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4) + XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))/
          (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         (Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(-3*XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - (Log[XXX[m1/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]^4*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(XXX[m1/CommonMass]^3/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - (Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - (Log[XXX[m3/CommonMass]]*TheMass[InF]*
          XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        (TheMass[InF]*(2*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           11*XXX[m3/CommonMass]^4))/(576*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
          (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          (TheMass[OutF]*(XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
             2*XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          (XXX[m1/CommonMass]^3 - 3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(64*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
         (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
        (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
         (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
        (TheMass[InF]*(-2*XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
           XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
          (Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass]^2)/
           (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
          (TheMass[OutF]*(-2*XXX[m1/CommonMass]^4 - 5*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
             XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
            XXX[m2/CommonMass]^2)/(8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) - 
          (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    G[-1][0][S[Index[Generic, 5]], S[Index[Generic, 6]], OutV][
      FourVec[Mom[1] - Mom[2], KI1[3]]]*
     (RCF*(-(Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^6)/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
        (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
         (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
        (TheMass[InF]*(-(XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4) + XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
           XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(96*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
          XXX[m1/CommonMass]^4*(-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
            (2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
          (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[-1]]] + 
      (RCF*(-(Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^6)/(48*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
          (TheMass[OutF]*(XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 
             XXX[m1/CommonMass]^4*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(96*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
            XXX[m3/CommonMass]^4*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
              (-3*XXX[m2/CommonMass]^2 + 2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
          (Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
            (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + 2*
                XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + 
        RCF*(-XXX[m1/CommonMass]^3/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m2/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^4)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
            (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + (Log[XXX[m1/CommonMass]]*
            (-2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^5*
              (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(16*CommonMass*Pi^2*
            (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
         G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*
       G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
        NonComm[ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(8*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       (TheMass[InF]*(5*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
          4*XXX[m3/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       (Log[XXX[m1/CommonMass]]*TheMass[InF]*(2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4))/(8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          4))*G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/
          (4*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/(4*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2)/(4*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^3*
             XXX[m3/CommonMass]^2)/(4*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           (XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(16*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*((Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*
             (-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/(8*CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
           (TheMass[OutF]*(5*XXX[m1/CommonMass]^4 + 5*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - 
              4*XXX[m3/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           (Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
              XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4))/(8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
                2)^4))*G[-1][0][-OutF, -F[Index[Generic, 6]], 
            V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], 
            ChirProj[1]]])*G[-1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutV][NonComm[DiracMat[KI1[3]], 
          ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/
        (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^6)/(8*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (TheMass[InF]*(11*XXX[m1/CommonMass]^4 - 7*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          2*XXX[m2/CommonMass]^4))/(96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^5)/
          (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (-3*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/(32*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(8*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4*
             XXX[m2/CommonMass])/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           (XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
                XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           (Log[XXX[m2/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
               XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
           (TheMass[OutF]*(16*XXX[m1/CommonMass]^4 - 29*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
              7*XXX[m2/CommonMass]^4))/(288*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, V, F, F}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
          2*XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^6*(-3*XXX[m1/CommonMass]^2 + 2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - (Log[XXX[m3/CommonMass]]*TheMass[InF]*
         XXX[m3/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
           (6*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (-6*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4)))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (TheMass[InF]*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*
           (XXX[m2/CommonMass]^2 - 4*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 2*XXX[m3/CommonMass]^4)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4)/(8*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         (XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
         (Log[XXX[m3/CommonMass]]*(-(XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + 
            XXX[m1/CommonMass]^3*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
          (8*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
       (RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(8*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^5)/(8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + 
              XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
           (XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/(16*CommonMass*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)*
             (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*
             (-(XXX[m2/CommonMass]^3*XXX[m3/CommonMass]^4) + XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^3*
                 XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)))/(8*CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
         RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*(2*XXX[m1/CommonMass]^6 - 3*XXX[m1/CommonMass]^4*
                XXX[m2/CommonMass]^2))/(24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             XXX[m2/CommonMass]^6*(2*XXX[m1/CommonMass]^2 - 3*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
            (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           (TheMass[OutF]*(-4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 2*XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^4 + 3*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2 - 2*XXX[m3/CommonMass]^4)))/(48*CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             (-3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 + 
              2*XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 - 3*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^4 + XXX[m3/CommonMass]^6)))/(24*CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
          G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
           NonComm[DiracMat[KI1[3]], ChirProj[1]]])*
        G[-1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutV][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]])
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
       (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
      (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(8*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)/
       (32*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
     G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
      NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)/
       (64*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^
         3))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
      NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
     G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
      NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, S, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
         XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + XXX[m3/CommonMass]^2/
       (32*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
         XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + 
         XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
       (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][-OutF, F[Index[Generic, 4]], 
       -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], 
       ChirProj[-1]]]*G[1][0][-F[Index[Generic, 4]], InF, 
       -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 5]], OutV, V[Index[Generic, 6]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*(-(Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
       (8*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
      (Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(8*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + (XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)/
       (32*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
     G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
      NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*
        (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)/
       (64*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^
         3))*G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
      NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
     G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
      NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
         XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
      (Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/(16*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + XXX[m3/CommonMass]^2/
       (32*CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + 
         XXX[m3/CommonMass]^2)) + (Log[XXX[m3/CommonMass]]*(-(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4) + 
         XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4)))/
       (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
        (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*G[-1][0][-F[Index[Generic, 4]], InF, 
       -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], 
       ChirProj[1]]]*G[1][0][-OutF, F[Index[Generic, 4]], 
       -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
     G[1][0][S[Index[Generic, 6]], OutV, V[Index[Generic, 5]]][
      MetTen[KI1[2], KI1[3]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 
    RCF*((TheMass[InF]*(16*XXX[m1/CommonMass]^4 - 29*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          7*XXX[m3/CommonMass]^4))/(288*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       (Log[XXX[m1/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       (Log[XXX[m3/CommonMass]]*TheMass[InF]*(3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
          6*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + 2*XXX[m3/CommonMass]^6))/
        (24*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((-9*XXX[m1/CommonMass]^3 + 3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(64*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (3*Log[XXX[m1/CommonMass]]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/
          (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (Log[XXX[m3/CommonMass]]*(-6*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 + 3*XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*(-(Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
            (4*XXX[m1/CommonMass]^4 - 3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4))/
          (16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         (Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*(4*XXX[m1/CommonMass]^4 - 
            3*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m3/CommonMass]^4))/(16*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         (TheMass[OutF]*(13*XXX[m1/CommonMass]^4 - 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m3/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 
    RCF*((Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
       (TheMass[InF]*(31*XXX[m1/CommonMass]^4 - 26*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
          7*XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((3*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^5)/(8*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + (3*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5)/
          (8*CommonMass*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3) + 
         (3*(3*XXX[m1/CommonMass]^3 - XXX[m1/CommonMass]*XXX[m2/CommonMass]^2))/(32*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           (3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) + (Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/(16*CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^4) - 
         (TheMass[OutF]*(31*XXX[m1/CommonMass]^4 - 26*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + 
            7*XXX[m2/CommonMass]^4))/(192*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[1]]], {V, F, V, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 
    RCF*((Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 4*XXX[m3/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(6*XXX[m2/CommonMass]^2 - 9*XXX[m3/CommonMass]^2)))/
        (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m1/CommonMass]]*TheMass[InF]*
         XXX[m1/CommonMass]^4*(9*XXX[m1/CommonMass]^4 + 3*XXX[m2/CommonMass]^4 - 4*XXX[m1/CommonMass]^2*
           (2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (TheMass[InF]*(4*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^4*(-8*XXX[m2/CommonMass]^2 + 5*XXX[m3/CommonMass]^2)))/
        (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       (Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*(-3*XXX[m2/CommonMass]^6 + 
          4*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^4*(-9*XXX[m2/CommonMass]^2 + 
            12*XXX[m3/CommonMass]^2) + 4*XXX[m1/CommonMass]^2*(2*XXX[m2/CommonMass]^4 - 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
        FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
        FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]] + 
     (RCF*((3*XXX[m1/CommonMass]^3)/(32*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + (3*Log[XXX[m2/CommonMass]]*
           (2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2 - XXX[m1/CommonMass]*XXX[m2/CommonMass]^4))/
          (16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) + (3*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^5*(-2*XXX[m1/CommonMass]^2 + 
            XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/(16*CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         (3*Log[XXX[m3/CommonMass]]*(-2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(16*CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], 
            KI1[3]]] + RCF*((Log[XXX[m1/CommonMass]]*TheMass[OutF]*(9*XXX[m1/CommonMass]^8 + 
            3*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^4 - 4*XXX[m1/CommonMass]^6*(XXX[m2/CommonMass]^2 + 
              2*XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         (TheMass[OutF]*(-4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^4*(-5*XXX[m2/CommonMass]^2 + 8*XXX[m3/CommonMass]^2)))/
          (96*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         (Log[XXX[m2/CommonMass]]*TheMass[OutF]*(-4*XXX[m2/CommonMass]^6 + 3*XXX[m2/CommonMass]^4*
             XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(9*XXX[m2/CommonMass]^4 - 6*XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^2)))/(48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + (Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^6 - 3*XXX[m3/CommonMass]^8 + 3*XXX[m1/CommonMass]^4*
             (4*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - 3*XXX[m3/CommonMass]^4) + 
            XXX[m1/CommonMass]^2*(-12*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 + 8*XXX[m3/CommonMass]^6)))/
          (48*CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[-1][0][OutV, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         FourVec[-Mom[1] + Mom[2], KI1[3]]*MetTen[KI1[1], KI1[2]] + 
          FourVec[Mom[1] - Mom[3], KI1[2]]*MetTen[KI1[1], KI1[3]] + 
          FourVec[-Mom[2] + Mom[3], KI1[1]]*MetTen[KI1[2], KI1[3]]])*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[2]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, S}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m1_, m3_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m2_] := 0
 
PenguinHelperDipOpR1[TopoSignature[PenguinTopologies[[3]]], {V, F, F, V}][
      InF_, OutF_, OutV_][m1_, m2_, m3_] := 0


PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^2 + 
          XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
          3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/8)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*XXX[m1/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)))*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^
              2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^3) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
           ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
             (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
               XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m1/CommonMass]^
                2*XXX[m3/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^
                4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^3) - ((I/8)*Log[XXX[m3/CommonMass]]*
             (CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^2*
               XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
                 XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/32)*(XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
                 XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^
                 2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              3) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
              3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)^3) - ((I/8)*Log[XXX[m2/CommonMass]]*
         TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
         (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2) - ((I/8)*Log[XXX[m2/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*XXX[m1/CommonMass]*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^3*(XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
            3*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^
              2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
              2)^3))*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
           ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
             (-TheMass[OutF]^2 + 2*CommonMass^2*XXX[m1/CommonMass]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           ((I/16)*Log[XXX[m2/CommonMass]]*(6*CommonMass^2*XXX[m1/CommonMass]^
                2*XXX[m2/CommonMass]^4 - 2*CommonMass^2*XXX[m2/CommonMass]^
                6 + XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 4*CommonMass^2*
                 XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
           ((I/64)*(-4*CommonMass^2*XXX[m1/CommonMass]^4 - TheMass[OutF]^
                2*XXX[m2/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                3*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
            (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              2))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              3) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/64)*TheMass[OutF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^
                2 + XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass]*(2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - 
          XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
         XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^
           2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m2/CommonMass]^4)/(CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2) + ((I/32)*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
          XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^2))*G[1][0][-OutF, -F[Index[Generic, 6]], 
        S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
        F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^3)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            3*(XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
             2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^4*(XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 - 
           ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^
                 2 - XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(
                TheMass[OutF]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
                2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
           ((I/16)*Log[XXX[m3/CommonMass]]*(-2*CommonMass^2*
               XXX[m3/CommonMass]^8 + XXX[m2/CommonMass]^2*(
                -(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 2*CommonMass^2*
                 XXX[m3/CommonMass]^6) + XXX[m1/CommonMass]^2*(
                -(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 2*CommonMass^2*
                 XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^2*
                 XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
                   XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
           ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
             XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^2) + ((I/32)*TheMass[OutF]*
             XXX[m2/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)) + ((I/16)*Log[XXX[m2/CommonMass]]*
             TheMass[OutF]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/8)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*XXX[m1/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            2*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[OutF]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1])*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/64)*TheMass[InF]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*XXX[m1/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
              2)^3) - ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/64)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1])*
      G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/64)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^4)/
          (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*TheMass[OutF]*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1])*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
     RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/32)*TheMass[InF]*XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*
         (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
          3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
         (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
           (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^
              2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^3) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]]) + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((I/4)/(eps*Pi^2) - ((I/2)*Log[CommonMass])/Pi^2 - 
         ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/8)*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/2)*Log[XXX[m1/CommonMass]]*(XXX[m1/CommonMass]^4 - 
            2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2))/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) - ((I/2)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/4)*XXX[m1/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)))*G[-1][0][-F[Index[Generic, 5]], InF, 
          -V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)^3) + ((I/8)*Log[XXX[m2/CommonMass]]*
         TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((-I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
         (XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
          3*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*(XXX[m1/CommonMass]^5 - 
          2*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^3) - ((I/4)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^3*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + 
            XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^3) - ((I/4)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + 
            XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]]) + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((I/4)/(eps*Pi^2) - ((I/2)*Log[CommonMass])/Pi^2 - 
         ((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/8)*(XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)) + 
         ((I/2)*Log[XXX[m2/CommonMass]]*(2*XXX[m1/CommonMass]^2*
             XXX[m2/CommonMass]^2 - XXX[m2/CommonMass]^4))/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2) + ((I/2)*Log[XXX[m2/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/4)*XXX[m1/CommonMass]*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2)) + ((I/8)*Log[XXX[m3/CommonMass]]*
         TheMass[OutF]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^4)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*TheMass[OutF]*XXX[m2/CommonMass]^3)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
         (XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
           2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4*(XXX[m1/CommonMass]^2 - 
          2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/16)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
               2)))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2))*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass]*(2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2 - XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
           (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^
             2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]]) + G[-1][0][-OutF, -F[Index[Generic, 6]], 
        V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*((I/8)/Pi^2 + (I/4)/(eps*Pi^2) - ((I/2)*Log[CommonMass])/Pi^2 - 
         ((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) + ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^3)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) + ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((I/16)/(eps*Pi^2) - ((I/8)*Log[CommonMass])/Pi^2 + 
         ((I/16)*(CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (2*TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/8)*Log[XXX[m3/CommonMass]]*
           (-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*(CommonMass^2*XXX[m1/CommonMass]^6 - 
            3*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
            TheMass[OutF]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(7*XXX[m1/CommonMass]^2 - 
            5*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
           (3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/64)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^
             4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) - ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*(4*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((I/16)/(eps*Pi^2) - ((I/8)*Log[CommonMass])/Pi^2 + 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (5*TheMass[OutF]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*(-6*CommonMass^2*XXX[m1/CommonMass]^
              2*XXX[m2/CommonMass]^4 + 2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(-5*TheMass[OutF]^2 + 4*CommonMass^2*
               XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/64)*(4*CommonMass^2*XXX[m1/CommonMass]^4 + 5*TheMass[OutF]^2*
             XXX[m2/CommonMass]^2 - XXX[m1/CommonMass]^2*
             (15*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            2))*G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/64)*TheMass[InF]*XXX[m1/CommonMass]*
           (5*XXX[m1/CommonMass]^2 - 7*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((((-3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((I/16)/(eps*Pi^2) - ((I/8)*Log[CommonMass])/Pi^2 - 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*(3*TheMass[OutF]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2) - XXX[m1/CommonMass]^2*
             (5*TheMass[OutF]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
              2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^4*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (2*TheMass[OutF]^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m2/CommonMass]^4 - 3*TheMass[OutF]^2*XXX[m3/CommonMass]^
                2 - 2*CommonMass^2*XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*(-2*CommonMass^2*XXX[m2/CommonMass]^
              8 - 2*TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
              2 + XXX[m2/CommonMass]^6*(3*TheMass[OutF]^2 + 2*CommonMass^
                2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*TheMass[OutF]^2*
               XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^
                4*(5*TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m3/CommonMass]]*
           (2*XXX[m3/CommonMass]^6*(TheMass[OutF]^2 - CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-3*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 2*CommonMass^2*
               XXX[m3/CommonMass]^6) + XXX[m1/CommonMass]^2*
             (-5*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 2*CommonMass^2*
               XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^2*(6*TheMass[OutF]^2*
                 XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                  4))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2))*G[1][0][-F[Index[Generic, 4]], InF, 
          -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (3*XXX[m1/CommonMass]^2 - 4*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(4*XXX[m2/CommonMass]^2 - 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-4*XXX[m2/CommonMass]^4 + 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^3*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
           (3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (-4*XXX[m2/CommonMass]^2 + 3*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
              2 + XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^2*(-2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^
             4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) + ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*(4*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
         ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3) - ((I/8)*Log[XXX[m3/CommonMass]]*
           (CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*(XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/64)*TheMass[InF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         (((3*I)/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 - 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
            2*CommonMass^2*XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*(6*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m2/CommonMass]^4 - 2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 4*CommonMass^2*
               XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/64)*(-4*CommonMass^2*XXX[m1/CommonMass]^4 - TheMass[OutF]^2*
             XXX[m2/CommonMass]^2 + XXX[m1/CommonMass]^2*(3*TheMass[OutF]^2 + 
              4*CommonMass^2*XXX[m2/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (5*XXX[m1/CommonMass]^2 - 7*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (3*XXX[m1/CommonMass]^2 - 2*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) - ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
           (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
              2 + XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^2*(-2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 - 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*(-2*CommonMass^2*XXX[m3/CommonMass]^
              8 + XXX[m2/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^
                 4) + 2*CommonMass^2*XXX[m3/CommonMass]^6) + 
            XXX[m1/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 
              2*CommonMass^2*XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^
                2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
                 XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^3*(3*XXX[m1/CommonMass]^2 - 
            4*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(-4*XXX[m2/CommonMass]^2 + 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-4*XXX[m2/CommonMass]^4 + 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
         XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
         XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/16)*TheMass[OutF]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       (I*XXX[m1/CommonMass])/(4*CommonMass*Pi^2*XXX[m1/CommonMass]^2 - 
         4*CommonMass*Pi^2*XXX[m3/CommonMass]^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
       ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
       (I*XXX[m1/CommonMass])/(4*CommonMass*Pi^2*XXX[m1/CommonMass]^2 - 
         4*CommonMass*Pi^2*XXX[m2/CommonMass]^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*TheMass[OutF]*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
          XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
           2)) - ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
           2)))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + 
     RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*TheMass[InF]*XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]]
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
          (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
          (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*
            XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
            (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
              XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
            XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
           4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
           CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
            (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
            XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
            (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
           5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
             3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^
             4*(CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^
             2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
              XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
              XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/192)*TheMass[OutF]^2*(9*CommonMass^2*XXX[m1/CommonMass]^6 - 
             2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 3*CommonMass^2*
              XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
             5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
        RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
           (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
            (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
            XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
              (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
              (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]]*
     (RCF*(((I/96)*TheMass[InF]*TheMass[OutF]^2)/(CommonMass*Pi^2*
          (TheMass[InF]^2 - TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
        ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
          XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/192)*TheMass[InF]*TheMass[OutF]^3)/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/192)*TheMass[OutF]^4)/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + RCF*(((-I/96)*TheMass[OutF]^3)/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            XXX[m2/CommonMass]) - ((I/16)*CommonMass*TheMass[OutF]*
            XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*
            TheMass[OutF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*
            TheMass[OutF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]]*
     (RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
          (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
          (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*
            XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*
            (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
          (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
              XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
            XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
           4) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
          XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
           4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
           CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
            (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
            XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
           3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
            (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
           5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
             3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
         -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^
             4*(CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^
             2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
              XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/192)*TheMass[OutF]^2*(9*CommonMass^2*XXX[m2/CommonMass]^6 - 
             2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 3*CommonMass^2*
              XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
             5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
        RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
           (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
            (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
            XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
              (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
              (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
          4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
           (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^
            6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
          3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
           (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m1/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[OutF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
           (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[OutF]^2*
           (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
             XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/96)*TheMass[InF]*(TheMass[OutF]^3 - 6*CommonMass^2*TheMass[OutF]*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(TheMass[InF]^2 - 
          TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/24)*TheMass[InF]*(TheMass[OutF]^2 - 3*CommonMass^2*
           XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/24)*(TheMass[OutF]^3 - 3*CommonMass^2*TheMass[OutF]*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]))*
        G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/96)*(TheMass[OutF]^4 - 6*CommonMass^2*TheMass[OutF]^2*
             XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
          4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
           (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^
            6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
          3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
           (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m2/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
        -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[OutF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) + ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
           (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[OutF]^2*
           (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*
             XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[OutF]*
         XXX[m1/CommonMass]*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
          XXX[m1/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^2))*G[1][0][-OutF, -F[Index[Generic, 4]], 
        OutS][NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
          4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
           (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/192)*TheMass[InF]*TheMass[OutF]*
         (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
             XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
           (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
           (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]^2*
           (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
               XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
             (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*
           XXX[m1/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/96)*TheMass[InF]^2*TheMass[OutF])/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
       ((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/192)*TheMass[InF]^3*TheMass[OutF])/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/192)*TheMass[InF]^4)/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + RCF*(((I/96)*TheMass[InF]^3)/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           XXX[m2/CommonMass]) + ((I/8)*CommonMass*Log[CommonMass]*
           TheMass[InF]*XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)) + ((I/16)*CommonMass*TheMass[InF]*
           XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) + ((I/32)*TheMass[OutF]*
         XXX[m2/CommonMass]*(2*CommonMass^2*XXX[m2/CommonMass]^4 + 
          XXX[m2/CommonMass]^2*(TheMass[InF]^2 - 4*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^2))*G[1][0][-OutF, -F[Index[Generic, 4]], 
        OutS][NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
          4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
           (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/192)*TheMass[InF]*TheMass[OutF]*
         (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
             XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
           (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
           (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]^2*
           (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
               XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
             (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*
           XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
           (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
         (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]^2*
         (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*
             XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
            4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*
             XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (4*TheMass[InF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[-1][0][-F[Index[Generic, 5]], InF, 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/96)*(TheMass[InF]^4 - 6*CommonMass^2*TheMass[InF]^2*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/24)*(TheMass[InF]^3 - 3*CommonMass^2*TheMass[InF]*
           XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/24)*TheMass[OutF]*(TheMass[InF]^2 - 3*CommonMass^2*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/96)*TheMass[OutF]*(TheMass[InF]^3 - 6*CommonMass^2*TheMass[InF]*
             XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpL[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
         (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]^2*
         (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*
             XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*
             XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (4*TheMass[InF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*(10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[-1][0][-F[Index[Generic, 5]], InF, 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[-1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
          3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
           (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^
              2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^3) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]])*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) + ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 + 
         ((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 3*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3) - ((I/8)*Log[XXX[m3/CommonMass]]*
           (CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*(XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       (RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
             (3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
             XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^3 + 
              XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
              XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
            (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
           ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^2) + ((I/16)*XXX[m1/CommonMass]^2)/
            (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^3) - ((I/8)*Log[XXX[m2/CommonMass]]*
           TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + 
            XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]])*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^3) - ((I/64)*TheMass[OutF]*
           XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^
             2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
              2)^2))*G[1][0][-OutF, -F[Index[Generic, 6]], 
          S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + RCF*((-I/16)/(eps*Pi^2) + 
         ((I/8)*Log[CommonMass])/Pi^2 + ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4*(-TheMass[OutF]^2 + 2*CommonMass^2*
             XXX[m1/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/16)*Log[XXX[m2/CommonMass]]*
           (6*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - 
            2*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/64)*(-4*CommonMass^2*XXX[m1/CommonMass]^4 - 
            TheMass[OutF]^2*XXX[m2/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       (RCF*(((-I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]^3*(XXX[m1/CommonMass]^2 - 
              2*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
              3*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
             (XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
               XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((I/8)*Log[XXX[m1/CommonMass]]*
             XXX[m1/CommonMass]^3*XXX[m2/CommonMass])/
            (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
           ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
               XXX[m2/CommonMass]^2)^2) - ((I/16)*XXX[m1/CommonMass]*
             XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m2/CommonMass]^2)))*G[1][0][-OutF, -F[Index[Generic, 6]], 
            S[Index[Generic, 4]]][NonComm[ChirProj[1]]])*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, S, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
       NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           TheMass[OutF]*XXX[m2/CommonMass]^4)/(CommonMass^2*Pi^2*
           (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*TheMass[InF]*TheMass[OutF]*XXX[m3/CommonMass]^2)/
          (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]] + 
       RCF*(((-I/32)*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m2/CommonMass])/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
           XXX[m2/CommonMass]*(2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2 - XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
           (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^
             2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 4]]][NonComm[ChirProj[-1]]])*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[1][0][-F[Index[Generic, 5]], InF, 
        -S[Index[Generic, 4]]][NonComm[ChirProj[1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       RCF*((-I/16)/(eps*Pi^2) + ((I/8)*Log[CommonMass])/Pi^2 - 
         ((I/16)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*(-2*CommonMass^2*XXX[m3/CommonMass]^
              8 + XXX[m2/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^
                 4) + 2*CommonMass^2*XXX[m3/CommonMass]^6) + 
            XXX[m1/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 
              2*CommonMass^2*XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^
                2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
                 XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
         NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[-1]]] + 
       (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
              3*(XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
           ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
           ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^2) - ((I/16)*Log[XXX[m2/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
             (XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[-1]]] + RCF*(((I/8)*Log[XXX[m1/CommonMass]]*
             XXX[m1/CommonMass]^3*XXX[m2/CommonMass])/
            (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
           ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
             XXX[m2/CommonMass]^3)/(Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)) - ((I/8)*Log[XXX[m3/CommonMass]]*
             XXX[m1/CommonMass]*XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
            (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
          G[1][0][-OutF, -F[Index[Generic, 6]], S[Index[Generic, 4]]][
           NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 6]], 
          F[Index[Generic, 5]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/64)*TheMass[InF]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
     (RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[OutF]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/8)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*XXX[m1/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1])*
      G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
       NonComm[ChirProj[1]]]
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/64)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
              2)^3) - ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/64)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*XXX[m1/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)))*G[1][0][-OutF, F[Index[Generic, 4]], 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
        G[1][0][OutS, S[Index[Generic, 5]], S[Index[Generic, 6]]][1])*
      G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
       NonComm[ChirProj[1]]]
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/32)*TheMass[InF]*XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*
         (-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
        S[Index[Generic, 6]]][1]*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[-1]]] + 
     (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^4)/
          (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*TheMass[OutF]*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1] + 
       RCF*(((I/8)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/8)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]*G[1][0][OutS, S[Index[Generic, 5]], 
          S[Index[Generic, 6]]][1])*G[1][0][-F[Index[Generic, 4]], InF, 
        -S[Index[Generic, 5]]][NonComm[ChirProj[1]]]
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
          XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
         (-2*XXX[m1/CommonMass]^3 + XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
         (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
          3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) - ((I/2)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/4)*XXX[m1/CommonMass]^2)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)))*G[-1][0][-OutF, -F[Index[Generic, 6]], 
          V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + RCF*((I/4)/(eps*Pi^2) - 
         ((I/2)*Log[CommonMass])/Pi^2 - ((I/2)*Log[XXX[m3/CommonMass]]*
           XXX[m3/CommonMass]^4)/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) - ((I/8)*(XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)) - ((I/2)*Log[XXX[m1/CommonMass]]*
           (XXX[m1/CommonMass]^4 - 2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^
              2))/(Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
          V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        (RCF*(((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
             (3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              2) + ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
             XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^3 + 
              XXX[m1/CommonMass]*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
              XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[-1]]] + RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
              3) + ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]*XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
           ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
              3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[1]]]))
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass])/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
           XXX[m2/CommonMass]^2)^3) - ((I/4)*Log[XXX[m2/CommonMass]]*
         TheMass[InF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/16)*TheMass[InF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/4)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
       ((I/16)*TheMass[InF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 + 
          XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2) + ((I/2)*Log[XXX[m2/CommonMass]]*
           XXX[m1/CommonMass]^3*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/4)*XXX[m1/CommonMass]*XXX[m2/CommonMass])/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + RCF*((I/4)/(eps*Pi^2) - 
         ((I/2)*Log[CommonMass])/Pi^2 - ((I/2)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4)/(Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2) + ((I/8)*(XXX[m1/CommonMass]^2 + 
            XXX[m2/CommonMass]^2))/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)) - ((I/2)*Log[XXX[m2/CommonMass]]*
           (-2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^2 + XXX[m2/CommonMass]^
             4))/(Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
          V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        (RCF*(((-I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]^3*(XXX[m1/CommonMass]^2 - 
              2*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*(XXX[m1/CommonMass]^2 - 
              3*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
           ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
             (XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
               XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[-1]]] + RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
              3) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
             XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
           ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*(-3*XXX[m1/CommonMass]^
                2 + XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[1]]]))
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, V, F, F}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/16)*TheMass[InF]*XXX[m1/CommonMass]^2*XXX[m2/CommonMass])/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4*
         XXX[m2/CommonMass]*(2*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2 - 
          XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (-2*XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
         XXX[m3/CommonMass]^2*(-2*XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^
           2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
          2*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[-1]]] + 
     RCF*(((-I/16)*TheMass[InF]*XXX[m1/CommonMass]^3)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m2/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
         (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 4]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
       NonComm[ChirProj[1]]] + G[-1][0][-F[Index[Generic, 5]], InF, 
        -V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3*
           XXX[m2/CommonMass])/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) + ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^3)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) + ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]*XXX[m3/CommonMass]^2)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[-1]]] + RCF*((I/8)/Pi^2 + (I/4)/(eps*Pi^2) - 
         ((I/2)*Log[CommonMass])/Pi^2 - ((I/2)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4)/(Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) + ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m3/CommonMass]^4)/
          (Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))*
        G[-1][0][-OutF, -F[Index[Generic, 6]], V[Index[Generic, 4]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
         NonComm[ChirProj[1]]] + G[-1][0][-OutF, -F[Index[Generic, 6]], 
          V[Index[Generic, 4]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        (RCF*(((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
              3*(XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
           ((I/16)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^2) - ((I/8)*Log[XXX[m2/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^4*
             (XXX[m1/CommonMass]^2 - 2*XXX[m2/CommonMass]^2 + 
              XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
             (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[-1]]] + RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*
             TheMass[OutF]*XXX[m1/CommonMass]^4*XXX[m2/CommonMass])/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
           ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
             XXX[m3/CommonMass]^4)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
               XXX[m3/CommonMass]^2)^2) + ((I/16)*TheMass[OutF]*
             XXX[m2/CommonMass]^3)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
              XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)) + ((I/8)*Log[XXX[m2/CommonMass]]*
             TheMass[OutF]*XXX[m2/CommonMass]^3*(XXX[m2/CommonMass]^2*
               XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*(
                XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
            (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
             (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
          G[1][0][F[Index[Generic, 6]], F[Index[Generic, 5]], OutS][
           NonComm[ChirProj[1]]]))
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((-I/64)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^
             4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) - ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*(4*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
           (3*XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((I/64)*TheMass[InF]*XXX[m1/CommonMass]*(7*XXX[m1/CommonMass]^2 - 
            5*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + RCF*((I/16)/(eps*Pi^2) - 
         ((I/8)*Log[CommonMass])/Pi^2 + 
         ((I/16)*(CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (2*TheMass[OutF]^2 - CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2) + ((I/8)*Log[XXX[m3/CommonMass]]*
           (-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*(CommonMass^2*XXX[m1/CommonMass]^6 - 
            3*CommonMass^2*XXX[m1/CommonMass]^4*XXX[m3/CommonMass]^2 - 
            TheMass[OutF]^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((((-3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         (((3*I)/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((-I/64)*TheMass[InF]*XXX[m1/CommonMass]*
           (5*XXX[m1/CommonMass]^2 - 7*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + RCF*((I/16)/(eps*Pi^2) - 
         ((I/8)*Log[CommonMass])/Pi^2 + ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4*(5*TheMass[OutF]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/16)*Log[XXX[m2/CommonMass]]*
           (-6*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 + 
            2*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (-5*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/64)*(4*CommonMass^2*XXX[m1/CommonMass]^4 + 
            5*TheMass[OutF]^2*XXX[m2/CommonMass]^2 - XXX[m1/CommonMass]^2*
             (15*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            2))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, S, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][OutS, S[Index[Generic, 5]], V[Index[Generic, 6]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
              2 + XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^2*(-2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^3*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
           (3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (-4*XXX[m2/CommonMass]^2 + 3*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 5]], 
        V[Index[Generic, 6]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (3*XXX[m1/CommonMass]^2 - 4*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(4*XXX[m2/CommonMass]^2 - 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-4*XXX[m2/CommonMass]^4 + 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[-1]]] + RCF*((I/16)/(eps*Pi^2) - 
         ((I/8)*Log[CommonMass])/Pi^2 - ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4*(2*CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + XXX[m2/CommonMass]^2*
             (3*TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2) - 
            XXX[m1/CommonMass]^2*(5*TheMass[OutF]^2 + 2*CommonMass^2*
               XXX[m2/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^4*
             (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (2*TheMass[OutF]^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m2/CommonMass]^4 - 3*TheMass[OutF]^2*XXX[m3/CommonMass]^
                2 - 2*CommonMass^2*XXX[m3/CommonMass]^4)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*(-2*CommonMass^2*XXX[m2/CommonMass]^
              8 - 2*TheMass[OutF]^2*XXX[m2/CommonMass]^4*XXX[m3/CommonMass]^
              2 + XXX[m2/CommonMass]^6*(3*TheMass[OutF]^2 + 2*CommonMass^
                2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*TheMass[OutF]^2*
               XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m2/CommonMass]^
                4*(5*TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^
                  2))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/16)*Log[XXX[m3/CommonMass]]*
           (2*XXX[m3/CommonMass]^6*(TheMass[OutF]^2 - CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (-3*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 2*CommonMass^2*
               XXX[m3/CommonMass]^6) + XXX[m1/CommonMass]^2*
             (-5*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 2*CommonMass^2*
               XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^2*(6*TheMass[OutF]^2*
                 XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^
                  4))))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2))*G[-1][0][-OutF, F[Index[Generic, 4]], 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, -S[Index[Generic, 5]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - 
            3*XXX[m1/CommonMass]*XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + RCF*((-I/16)/(eps*Pi^2) + 
         ((I/8)*Log[CommonMass])/Pi^2 + ((I/8)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + 2*CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*Log[XXX[m3/CommonMass]]*(CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/32)*(XXX[m1/CommonMass]^2*(TheMass[OutF]^2 - 2*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*
             (TheMass[OutF]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((I/64)*TheMass[InF]*TheMass[OutF]*(5*XXX[m1/CommonMass]^2 + 
            XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           (4*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^
             4))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3) + ((I/16)*Log[XXX[m3/CommonMass]]*
           TheMass[InF]*TheMass[OutF]*(4*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 - XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/32)*TheMass[InF]*XXX[m1/CommonMass]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           (2*XXX[m1/CommonMass]^3*XXX[m3/CommonMass]^2 - XXX[m1/CommonMass]*
             XXX[m3/CommonMass]^4))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/64)*TheMass[OutF]*XXX[m1/CommonMass]*
           (5*XXX[m1/CommonMass]^2 - 7*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           (3*XXX[m1/CommonMass]^5 - 4*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + RCF*((-I/16)/(eps*Pi^2) + 
         ((I/8)*Log[CommonMass])/Pi^2 - ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2 + 2*CommonMass^2*XXX[m2/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/16)*Log[XXX[m2/CommonMass]]*
           (6*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m2/CommonMass]^4 - 
            2*CommonMass^2*XXX[m2/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            3) + ((I/64)*(-4*CommonMass^2*XXX[m1/CommonMass]^4 - 
            TheMass[OutF]^2*XXX[m2/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*TheMass[OutF]^2 + 4*CommonMass^2*XXX[m2/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^
            2))*G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*((((3*I)/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         (((3*I)/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         (((3*I)/64)*TheMass[InF]*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((-I/64)*TheMass[InF]*XXX[m1/CommonMass]*
           (7*XXX[m1/CommonMass]^2 - 5*XXX[m2/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           (3*XXX[m1/CommonMass]^5 - 2*XXX[m1/CommonMass]^3*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[-1][0][OutS, S[Index[Generic, 6]], V[Index[Generic, 5]]][
       FourVec[Mom[1] - Mom[2], KI1[3]]]*G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^3*(3*XXX[m1/CommonMass]^2 - 
            4*XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*XXX[m2/CommonMass]^2)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(-4*XXX[m2/CommonMass]^2 + 
            3*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) + ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]*XXX[m2/CommonMass]^2*(-4*XXX[m2/CommonMass]^4 + 
            3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            XXX[m1/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
              2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + RCF*((-I/16)/(eps*Pi^2) + 
         ((I/8)*Log[CommonMass])/Pi^2 - ((I/16)*Log[XXX[m1/CommonMass]]*
           XXX[m1/CommonMass]^4*(TheMass[OutF]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2 + 2*CommonMass^2*XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m2/CommonMass]]*XXX[m2/CommonMass]^4*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2 + 
            2*CommonMass^2*XXX[m3/CommonMass]^2))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/32)*(2*CommonMass^2*XXX[m1/CommonMass]^2*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2) + XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - 
              2*CommonMass^2*XXX[m2/CommonMass]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m3/CommonMass]]*(-2*CommonMass^2*XXX[m3/CommonMass]^
              8 + XXX[m2/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^
                 4) + 2*CommonMass^2*XXX[m3/CommonMass]^6) + 
            XXX[m1/CommonMass]^2*(-(TheMass[OutF]^2*XXX[m3/CommonMass]^4) + 
              2*CommonMass^2*XXX[m3/CommonMass]^6 + 2*XXX[m2/CommonMass]^
                2*XXX[m3/CommonMass]^2*(TheMass[OutF]^2 - CommonMass^2*
                 XXX[m3/CommonMass]^2))))/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]]) + G[-1][0][OutS, S[Index[Generic, 6]], 
        V[Index[Generic, 5]]][FourVec[Mom[1] - Mom[2], KI1[3]]]*
      (RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(3*XXX[m1/CommonMass]^2 - 
            2*XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(-2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^
              2 + XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/32)*TheMass[InF]*TheMass[OutF]*(XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^2*(-2*XXX[m2/CommonMass]^4 + 
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (3*XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (3*XXX[m1/CommonMass]^2 - 2*XXX[m3/CommonMass]^2))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2*(3*XXX[m2/CommonMass]^2 - 
            2*XXX[m3/CommonMass]^2))/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
              2)^2) - ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2*
           (-3*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + 
            2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (4*XXX[m2/CommonMass]^2 - 3*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, F[Index[Generic, 4]], -S[Index[Generic, 6]]][
         NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/32)*TheMass[InF]*(XXX[m1/CommonMass]^2 - 3*XXX[m3/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((-I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^2) + ((I/2)*Log[XXX[m3/CommonMass]]*
           XXX[m1/CommonMass]*XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         (I*XXX[m1/CommonMass])/(4*CommonMass*Pi^2*XXX[m1/CommonMass]^2 - 
           4*CommonMass*Pi^2*XXX[m3/CommonMass]^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]] + 
       RCF*(((I/4)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/4)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/16)*TheMass[OutF]*(XXX[m1/CommonMass]^2 + XXX[m3/CommonMass]^2))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(-XXX[m1/CommonMass]^2 + XXX[m2/CommonMass]^2)^3))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2) - 
         (I*XXX[m1/CommonMass])/(4*CommonMass*Pi^2*XXX[m1/CommonMass]^2 - 
           4*CommonMass*Pi^2*XXX[m2/CommonMass]^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
              2)^3) + ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
           XXX[m1/CommonMass]^4)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^3) + 
         ((I/32)*TheMass[OutF]*(3*XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2))/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - 
             XXX[m2/CommonMass]^2)^2))*G[-1][0][-OutF, F[Index[Generic, 4]], 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[1]]], {S, F, V, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^4)/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
       ((I/16)*TheMass[InF]*XXX[m2/CommonMass]^2)/(CommonMass^2*Pi^2*
         (XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^2*
         (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
           (XXX[m2/CommonMass]^2 - 2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)^2*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 4]], InF, -V[Index[Generic, 5]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
       MetTen[KI1[2], KI1[3]]] + G[-1][0][-F[Index[Generic, 4]], InF, 
        -V[Index[Generic, 5]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*Log[XXX[m1/CommonMass]]*XXX[m1/CommonMass]^3)/
          (CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)) - 
         ((I/2)*Log[XXX[m2/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m2/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m2/CommonMass]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^
             2)) - ((I/2)*Log[XXX[m3/CommonMass]]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2)/(CommonMass*Pi^2*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)*(-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^
             2)))*G[-1][0][-OutF, F[Index[Generic, 4]], 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]] + 
       RCF*(((-I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^
            4)/(CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^
             2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^4)/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m2/CommonMass]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2) + 
         ((I/16)*TheMass[OutF]*XXX[m3/CommonMass]^2)/(CommonMass^2*Pi^2*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)*
           (-XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + XXX[m1/CommonMass]^2*
             (-2*XXX[m2/CommonMass]^2 + XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
        G[-1][0][-OutF, F[Index[Generic, 4]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][OutS, V[Index[Generic, 5]], V[Index[Generic, 6]]][
         MetTen[KI1[2], KI1[3]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]]*
     (RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
         (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
          (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
          (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
              XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
          (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
            XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
            XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 
             5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[OutF]^2*
          (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 21*CommonMass^2*
              XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
            (2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
              XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]*
            TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
             2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
              XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
              XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             4) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
             4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
             CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
              XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
             5*XXX[m1/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
           (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
            (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
            (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*
              XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
              (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
            (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
              (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]]*
     (RCF*(((-I/96)*TheMass[OutF]^3)/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
        ((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
          XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
        ((I/192)*TheMass[OutF]^4)/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]*
            TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
          ((I/192)*TheMass[InF]*TheMass[OutF]^3)/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
         G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[-1]]] + RCF*(((I/96)*TheMass[InF]*TheMass[OutF]^2)/
           (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
            XXX[m2/CommonMass]) + ((I/16)*CommonMass*TheMass[InF]*
            XXX[m2/CommonMass])/(eps*Pi^2*(TheMass[InF]^2 - 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[CommonMass]*
            TheMass[InF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*
            TheMass[InF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])*
       G[1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
         S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]]*
     (RCF*(((-I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
         (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
          (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
          XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
           CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
            (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
         (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
        ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
          (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
            (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
           XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
              XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[-1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      RCF*(((-I/32)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[OutF]^2)/
         (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
        ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
          (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
            XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
         (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
          (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
        ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
          (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
            XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
            XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 
             5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
          (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
            XXX[m3/CommonMass]^2)^4) - ((I/192)*TheMass[OutF]^2*
          (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*
            XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
           XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 21*CommonMass^2*
              XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
            (2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
              XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
           TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
       G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
        NonComm[ChirProj[1]]]*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
      (RCF*(((-I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)) + ((I/16)*Log[CommonMass]*TheMass[InF]*
            TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
             2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
              XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
              XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             4) - ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
            XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
             4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
             CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
          ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
              XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 - 
             3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
              (4*TheMass[OutF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
             5*XXX[m2/CommonMass]^2*(2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 + 
               3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
            (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
              XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 5]], 
           -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
        RCF*(((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
           (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
          ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
           (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
          ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
            (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
              XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
              XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
            (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*
              XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*
              (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
           (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
            (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
          ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
            (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
              (TheMass[OutF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
             XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + 2*CommonMass^2*
                XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
             TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
             2))*G[1][0][-OutF, -F[Index[Generic, 5]], -S[Index[Generic, 6]]][
          NonComm[ChirProj[1]]])*G[1][0][F[Index[Generic, 5]], 
         F[Index[Generic, 4]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]^2*XXX[m1/CommonMass]^4*
         (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[OutF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[OutF]^2*
         (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*
           XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*
           XXX[m1/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*
             XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
            4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*
             XXX[m1/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m1/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/96)*(TheMass[OutF]^4 - 6*CommonMass^2*TheMass[OutF]^2*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/24)*(TheMass[OutF]^3 - 3*CommonMass^2*TheMass[OutF]*
           XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*
           XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/24)*TheMass[InF]*(TheMass[OutF]^2 - 3*CommonMass^2*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]))*
        G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/96)*TheMass[InF]*(TheMass[OutF]^3 - 6*CommonMass^2*TheMass[OutF]*
             XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(TheMass[InF]^2 - 
            TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[2]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((-I/16)*TheMass[OutF]^2)/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) + ((I/8)*Log[CommonMass]*TheMass[OutF]^2)/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]^2*XXX[m2/CommonMass]^4*
         (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[OutF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) - ((I/96)*TheMass[OutF]^2*
         (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*
           XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(4*TheMass[OutF]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     RCF*(((I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 5]], F[Index[Generic, 4]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*
           XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[OutF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*
             XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[OutF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[OutF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-OutF, -F[Index[Generic, 5]], -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]] + 
       RCF*(((-I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[CommonMass]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            2*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) - ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (2*TheMass[OutF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) - 
         ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*
             XXX[m2/CommonMass]^6 - 2*TheMass[OutF]^2*XXX[m3/CommonMass]^4 + 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (4*TheMass[OutF]^2 - 3*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m2/CommonMass]^2*(10*TheMass[OutF]^2*XXX[m3/CommonMass]^2 - 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[-1][0][-OutF, -F[Index[Generic, 5]], 
          -V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 4]], InF, OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/16)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*XXX[m1/CommonMass]*
         (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
         (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]^2*
         (9*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
             XXX[m3/CommonMass]^2) + 5*XXX[m1/CommonMass]^2*
           (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/16)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
            4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
             XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
             (4*TheMass[InF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
            5*XXX[m1/CommonMass]^2*(2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 4]], 
          OutS][NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*
             XXX[m1/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[OutF]*XXX[m1/CommonMass]*
           (2*CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/96)*TheMass[InF]^3)/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]) + 
       ((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
         XXX[m2/CommonMass])/(Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/192)*TheMass[InF]^4)/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/192)*TheMass[InF]^3*TheMass[OutF])/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
        G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
         NonComm[ChirProj[-1]]] + RCF*(((I/96)*TheMass[InF]^2*TheMass[OutF])/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           XXX[m2/CommonMass]) + ((I/16)*CommonMass*TheMass[OutF]*
           XXX[m2/CommonMass])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[CommonMass]*
           TheMass[OutF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/8)*CommonMass*Log[XXX[m2/CommonMass]]*
           TheMass[OutF]*XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, S}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((I/8)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
       ((I/16)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
         XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
       ((I/32)*TheMass[InF]*XXX[m2/CommonMass]*
         (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[-1]]] + RCF*(((I/16)*Log[CommonMass]*TheMass[InF]^2)/
        (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/32)*TheMass[InF]^2)/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
         (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
         (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 
            5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^4) + ((I/192)*TheMass[InF]^2*
         (9*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
           XXX[m3/CommonMass]^4 - 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
          XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 21*CommonMass^2*
             XXX[m3/CommonMass]^2) + 5*XXX[m2/CommonMass]^2*
           (2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]]*
      G[1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        S[Index[Generic, 6]]][NonComm[ChirProj[-1]]]*
      G[1][0][-F[Index[Generic, 5]], InF, -S[Index[Generic, 6]]][
       NonComm[ChirProj[1]]] + G[1][0][F[Index[Generic, 4]], 
        F[Index[Generic, 5]], S[Index[Generic, 6]]][NonComm[ChirProj[1]]]*
      (RCF*(((I/32)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)) - ((I/16)*Log[CommonMass]*TheMass[InF]*
           TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/16)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
             XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            4) + ((I/16)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
           XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
            4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
            CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/192)*TheMass[InF]*TheMass[OutF]*(9*CommonMass^2*
             XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 - 
            3*CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
             (4*TheMass[InF]^2 - 21*CommonMass^2*XXX[m3/CommonMass]^2) + 
            5*XXX[m2/CommonMass]^2*(2*TheMass[InF]^2*XXX[m3/CommonMass]^2 + 
              3*CommonMass^2*XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^3))*G[1][0][-OutF, -F[Index[Generic, 4]], 
          OutS][NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[-1]]] + 
       RCF*(((I/16)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
           (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*
             XXX[m2/CommonMass]*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) + 
         ((I/32)*TheMass[OutF]*XXX[m2/CommonMass]*
           (2*CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 4*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + 2*CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[1][0][-OutF, -F[Index[Generic, 4]], OutS][
         NonComm[ChirProj[1]]]*G[1][0][-F[Index[Generic, 5]], InF, 
          -S[Index[Generic, 6]]][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m1_, m3_] := 
    RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m1/CommonMass]^4*(CommonMass^2*XXX[m1/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m1/CommonMass]^6 + 
          4*CommonMass^2*XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*
           (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m1/CommonMass]^
            6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
           (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m1/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m1/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[OutF]*XXX[m1/CommonMass]^3*
         (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m1/CommonMass]^5 + CommonMass^2*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^3*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[OutF]*XXX[m1/CommonMass]*
         (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m1/CommonMass])/
          (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m1/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m1/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]^3*
           (CommonMass^2*XXX[m1/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m1/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m1/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*TheMass[InF]*XXX[m1/CommonMass]*
           (CommonMass^2*XXX[m1/CommonMass]^4 + XXX[m1/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
       RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m1/CommonMass]]*TheMass[InF]^2*XXX[m1/CommonMass]^4*
           (CommonMass^2*XXX[m1/CommonMass]^4 + 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m1/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m1/CommonMass]^6 + 4*CommonMass^2*
             XXX[m1/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m1/CommonMass]^4*(2*TheMass[InF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]^2*
           (3*CommonMass^2*XXX[m1/CommonMass]^6 - 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m1/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m1/CommonMass]^2*
             (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m1/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m2_] := 
    RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/96)*TheMass[OutF]*(TheMass[InF]^3 - 6*CommonMass^2*TheMass[InF]*
           XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[OutF]*
         XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/24)*TheMass[OutF]*(TheMass[InF]^2 - 3*CommonMass^2*
           XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*XXX[m2/CommonMass]))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[XXX[m2/CommonMass]]*TheMass[InF]*
           XXX[m2/CommonMass])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
         ((I/24)*(TheMass[InF]^3 - 3*CommonMass^2*TheMass[InF]*
             XXX[m2/CommonMass]^2))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
       RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/96)*(TheMass[InF]^4 - 6*CommonMass^2*TheMass[InF]^2*
             XXX[m2/CommonMass]^2))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*XXX[m2/CommonMass]^2))*
        G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]])
 
PenguinHelperOpR[TopoSignature[PenguinTopologies[[3]]], {S, F, F, V}][InF_, 
      OutF_, OutS_][m1_, m2_, m3_] := 
    RCF*(((I/16)*TheMass[InF]*TheMass[OutF])/(eps*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)) - ((I/8)*Log[CommonMass]*TheMass[InF]*
         TheMass[OutF])/(Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) - 
       ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m2/CommonMass]^4*(CommonMass^2*XXX[m2/CommonMass]^4 + 
          2*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 2*CommonMass^2*
           XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^2 + CommonMass^2*
           XXX[m3/CommonMass]^4))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]*TheMass[OutF]*
         XXX[m3/CommonMass]^2*(2*CommonMass^2*XXX[m2/CommonMass]^6 + 
          4*CommonMass^2*XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - 
          CommonMass^2*XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*
           (2*TheMass[InF]^2 - 5*CommonMass^2*XXX[m3/CommonMass]^2)))/
        (CommonMass^2*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
       ((I/96)*TheMass[InF]*TheMass[OutF]*(3*CommonMass^2*XXX[m2/CommonMass]^
            6 - 2*TheMass[InF]^2*XXX[m3/CommonMass]^4 + 3*CommonMass^2*
           XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 
            3*CommonMass^2*XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
           (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
             XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     RCF*(((-I/4)*CommonMass*TheMass[OutF]*XXX[m2/CommonMass])/
        (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*CommonMass*Log[CommonMass]*TheMass[OutF]*XXX[m2/CommonMass])/
        (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
       ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[OutF]*XXX[m2/CommonMass]^3*
         (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
           XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
           XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
        (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
         (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
       ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[OutF]*XXX[m3/CommonMass]^2*
         (CommonMass^2*XXX[m2/CommonMass]^5 + CommonMass^2*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^3*(TheMass[InF]^2 - 
            2*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*
         (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
           XXX[m3/CommonMass]^2)^3) - ((I/8)*TheMass[OutF]*XXX[m2/CommonMass]*
         (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
           (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
          XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
             XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
          TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^2))*
      G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
      G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
       NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
     G[-1][0][F[Index[Generic, 4]], F[Index[Generic, 5]], 
        V[Index[Generic, 6]]][NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
      (RCF*(((I/4)*CommonMass*TheMass[InF]*XXX[m2/CommonMass])/
          (eps*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + 
         ((I/2)*CommonMass*Log[CommonMass]*TheMass[InF]*XXX[m2/CommonMass])/
          (Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/2)*Log[XXX[m2/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]^3*
           (CommonMass^2*XXX[m2/CommonMass]^4 + TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/2)*Log[XXX[m3/CommonMass]]*TheMass[InF]*XXX[m2/CommonMass]*
           XXX[m3/CommonMass]^2*(CommonMass^2*XXX[m2/CommonMass]^4 + 
            CommonMass^2*XXX[m3/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2)))/
          (CommonMass*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^3) - 
         ((I/8)*TheMass[InF]*XXX[m2/CommonMass]*
           (CommonMass^2*XXX[m2/CommonMass]^4 + XXX[m2/CommonMass]^2*
             (TheMass[InF]^2 - 2*CommonMass^2*XXX[m3/CommonMass]^2) + 
            XXX[m3/CommonMass]^2*(TheMass[InF]^2 + CommonMass^2*
               XXX[m3/CommonMass]^2)))/(CommonMass*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            2))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[-1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]] + 
       RCF*(((I/8)*Log[CommonMass]*TheMass[InF]^2)/
          (Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)) + ((I/16)*TheMass[InF]^2)/
          (eps*Pi^2*(-TheMass[InF]^2 + TheMass[OutF]^2)) + 
         ((I/8)*Log[XXX[m2/CommonMass]]*TheMass[InF]^2*XXX[m2/CommonMass]^4*
           (CommonMass^2*XXX[m2/CommonMass]^4 + 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^2 - 2*CommonMass^2*XXX[m2/CommonMass]^2*
             XXX[m3/CommonMass]^2 + CommonMass^2*XXX[m3/CommonMass]^4))/
          (CommonMass^2*Pi^2*(TheMass[InF]^2 - TheMass[OutF]^2)*
           (XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^4) + 
         ((I/8)*Log[XXX[m3/CommonMass]]*TheMass[InF]^2*XXX[m3/CommonMass]^2*
           (2*CommonMass^2*XXX[m2/CommonMass]^6 + 4*CommonMass^2*
             XXX[m2/CommonMass]^2*XXX[m3/CommonMass]^4 - CommonMass^2*
             XXX[m3/CommonMass]^6 + XXX[m2/CommonMass]^4*(2*TheMass[InF]^2 - 
              5*CommonMass^2*XXX[m3/CommonMass]^2)))/(CommonMass^2*Pi^2*
           (-TheMass[InF]^2 + TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - 
             XXX[m3/CommonMass]^2)^4) + ((I/96)*TheMass[InF]^2*
           (3*CommonMass^2*XXX[m2/CommonMass]^6 - 2*TheMass[InF]^2*
             XXX[m3/CommonMass]^4 + 3*CommonMass^2*XXX[m3/CommonMass]^6 + 
            XXX[m2/CommonMass]^4*(4*TheMass[InF]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^2) + XXX[m2/CommonMass]^2*
             (10*TheMass[InF]^2*XXX[m3/CommonMass]^2 - 3*CommonMass^2*
               XXX[m3/CommonMass]^4)))/(CommonMass^2*Pi^2*(-TheMass[InF]^2 + 
            TheMass[OutF]^2)*(XXX[m2/CommonMass]^2 - XXX[m3/CommonMass]^2)^
            3))*G[-1][0][-F[Index[Generic, 5]], InF, -V[Index[Generic, 6]]][
         NonComm[DiracMat[KI1[3]], ChirProj[1]]]*
        G[1][0][-OutF, -F[Index[Generic, 4]], OutS][NonComm[ChirProj[1]]])
End[]
EndPackage[]
