ll = (WriteString["stdout", "."] ; DiscardTerms[#, Retain -> {Particle[PhiMeson, RenormalizationState[0]] -> 1, Particle[Scalar[2], RenormalizationState[0]] -> 1}, CommutatorReduce -> True, Method -> Expand]) & /@ lla ;

....

Converted by Mathematica  (July 10, 2003)