lld = CheckF[(WriteString["stdout", "."] ; DiscardTerms[#, Retain -> {Particle[PhiMeson, RenormalizationState[0]] -> 2, Particle[Scalar[2], RenormalizationState[0] ] -> 1}, CommutatorReduce -> True, Method -> Coefficient]) & /@ Select[lldd, (! FreeQ[#, Scalar[2], Infinity, Heads -> True]) &], "SU3Weak2mesonS2lld"] ;

.........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................

Converted by Mathematica  (July 10, 2003)