rep = 0 ; res3 = CheckF[(++ rep ; WriteString["stdout", rep, " "] ; exp = Collect[#, {_FeynAmpDenominator}] ; If[Head[exp] === Plus, WriteString["stdout", Length, " ", Length[exp], " "] ; (WriteString["stdout", "."] ; OneLoop[q1, #, Dimension -> D]) & /@ exp, OneLoop[q1, exp, Dimension -> D]]) & /@ Take[ress1, {1, -1}], "KSPires3.2.m"] ;

1 Length 3 ...2 Length 3 ...3 Length 3 ...4 Length 3 ...5 Length 3 ...6 Length 2 ..7 Length 3 ...8 Length 3 ...9 Length 2 ..10 Length 4 ....

Converted by Mathematica  (July 10, 2003)