WriteString["stdout", "Total length: ", Length[melsimplified2]] ; melsimplified3 = (WriteString["stdout", " leafs: ", LeafCount[#]] ; Collect[SUNReduce[SUNReduce[SUNReduce[SUNReduce[SUNReduce[#]]]]], {_DecayConstant, _CouplingConstant, _SU3Delta}]) & /@ Take[melsimplified2, {1, -1}] ;

Total length: 177 leafs: 8154 leafs: 8154 leafs: 8154 leafs: 8249 leafs: 8249 leafs: 8249 leafs: 193 leafs: 193 leafs: 198 leafs: 198 leafs: 198 leafs: 223 leafs: 223 leafs: 223 leafs: 221 leafs: 221 leafs: 518 leafs: 518 leafs: 512 leafs: 512 leafs: 512 leafs: 518 leafs: 518 leafs: 523 leafs: 523 leafs: 523 leafs: 510 leafs: 510 leafs: 523 leafs: 523 leafs: 523 leafs: 541 leafs: 541 leafs: 546 leafs: 546 leafs: 546 leafs: 549 leafs: 549 leafs: 547 leafs: 547 leafs: 549 leafs: 555 leafs: 560 leafs: 560 leafs: 555 leafs: 560 leafs: 539 leafs: 539 leafs: 516 leafs: 516 leafs: 553 leafs: 553 leafs: 221 leafs: 221 leafs: 221 leafs: 539 leafs: 539 leafs: 544 leafs: 544 leafs: 544 leafs: 541 leafs: 541 leafs: 516 leafs: 516 leafs: 521 leafs: 521 leafs: 521 leafs: 547 leafs: 547 leafs: 553 leafs: 558 leafs: 558 leafs: 555 leafs: 547 leafs: 553 leafs: 558 leafs: 555 leafs: 223 leafs: 223 leafs: 549 leafs: 549 leafs: 544 leafs: 544 leafs: 544 leafs: 546 leafs: 546 leafs: 546 leafs: 521 leafs: 521 leafs: 521 leafs: 560 leafs: 560 leafs: 560 leafs: 558 leafs: 558 leafs: 558 leafs: 518 leafs: 518 leafs: 523 leafs: 523 leafs: 523 leafs: 516 leafs: 516 leafs: 521 leafs: 521 leafs: 521 leafs: 549 leafs: 549 leafs: 549 leafs: 547 leafs: 547 leafs: 547 leafs: 549 leafs: 547 leafs: 547 leafs: 549 leafs: 549 leafs: 553 leafs: 558 leafs: 558 leafs: 555 leafs: 553 leafs: 558 leafs: 560 leafs: 560 leafs: 555 leafs: 553 leafs: 560 leafs: 558 leafs: 558 leafs: 555 leafs: 555 leafs: 560 leafs: 560 leafs: 560 leafs: 553 leafs: 558 leafs: 555 leafs: 560 leafs: 553 leafs: 558 leafs: 555 leafs: 560 leafs: 560 leafs: 555 leafs: 560 leafs: 553 leafs: 558 leafs: 558 leafs: 553 leafs: 558 leafs: 558 leafs: 555 leafs: 560 leafs: 560 leafs: 553 leafs: 558 leafs: 553 leafs: 558 leafs: 555 leafs: 555 leafs: 560 leafs: 560 leafs: 560 leafs: 553 leafs: 558 leafs: 558 leafs: 555 leafs: 555 leafs: 560 leafs: 560 leafs: 560 leafs: 553 leafs: 558 leafs: 558 leafs: 553 leafs: 558

Converted by Mathematica  (July 10, 2003)