ExponentSumWord( w, gen )
ExponentSumWord returns the number of times the generator gen appears
in the word w minus the number of times its inverse appears in w. If
gen and its inverse do no occur in w, 0 is returned. gen may also
be the inverse of a generator of course.
gap> a := AbstractGenerator("a");;
gap> b := AbstractGenerator("b");;
gap> w := (a^2*b)^5*b^-1;
a^2*b*a^2*b*a^2*b*a^2*b*a^2
gap> ExponentSumWord( w, a );
10
gap> ExponentSumWord( w, b );
4
gap> ExponentSumWord( (a*b*a^-1)^3, a );
0
gap> ExponentSumWord( (a*b*a^-1)^3, b^-1 );
-3
GAP 3.4.4