res = ((WriteString["stdout", "."] ; Simplify[I * SUNReduce[FunctionalD[PhiToFC[#], fields], FullReduce -> True]]) & /@ lal) ;

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


Converted by Mathematica  (July 10, 2003)