A test:

classcoup2 = {classcoup[[3]], classcoup[[5]], classcoup[[4]], classcoup[[2]], classcoup[[1]]} ;

$VeryVerbose = 0 ;

Table[WriteString["stdout", n] ; classcoup2[[n]] /. {I1 -> 7, I2 -> 3, I3 -> 3, I4 -> 7, I5 -> ii, I6 -> ii} // FAToFC // SUNReduce[#, FullReduce -> True] &, {n, 5}, {ii, 8}]

1111111122222222333333334444444455555555

( 1 1 1 11 11 4 2 3 ) {--------------} {--------------} {-------------} {--------------} {--------------} {--------------} {--------------} {-------------} ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 15 (f ) 15 (f ) 5 (f ) 30 (f ) 30 (f ) 15 (f ) 15 (f ) 5 (f ) ϕ ϕ ϕ ϕ ϕ ϕ ϕ ϕ 1 1 1 13 13 1 2 3 {-------------} {-------------} {-------------} {-------------} {-------------} {-------------} {--------------} {-------------} ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 60 (f ) 60 (f ) 20 (f ) 60 (f ) 60 (f ) 15 (f ) 15 (f ) 20 (f ) ϕ ϕ ϕ ϕ ϕ ϕ ϕ ϕ 1 1 1 13 13 1 2 3 {-------------} {-------------} {-------------} {-------------} {-------------} {-------------} {--------------} {-------------} ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 60 (f ) 60 (f ) 20 (f ) 60 (f ) 60 (f ) 15 (f ) 15 (f ) 20 (f ) ϕ ϕ ϕ ϕ ϕ ϕ ϕ ϕ 1 1 1 1 1 1 1 3 {-------------} {-------------} {-------------} {--------------} {--------------} {-------------} {------------} {-------------} ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 60 (f ) 60 (f ) 20 (f ) 30 (f ) 30 (f ) 15 (f ) 5 (f ) 20 (f ) ϕ ϕ ϕ ϕ ϕ ϕ ϕ ϕ 1 1 1 1 1 1 1 3 {-------------} {-------------} {-------------} {--------------} {--------------} {-------------} {------------} {-------------} ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 ó  3 60 (f ) 60 (f ) 20 (f ) 30 (f ) 30 (f ) 15 (f ) 5 (f ) 20 (f ) ϕ ϕ ϕ ϕ ϕ ϕ ϕ ϕ

$VeryVerbose = 2 ;

Converted by Mathematica  (July 10, 2003)