G := SmallGroup(504,156);



for k in [1..100] do 
t := Cputime();

X := {@ g : g in G @};



S := SymmetricGroup(#G);

ran := Random(G);

element := [ Position(X, ran*g) : g in X ];

A := S!element;

ran := Random(G);

element := [ Position(X, ran*g) : g in X ];

B := S!element;

ran := Random(G);

element := [ Position(X, ran*g) : g in X ];

C := S!element;


first := Cputime(t);
t := Cputime();


temp := C*B;
B := C*A;
C := A*B;
A := B*C*temp;

second := Cputime(t);

dif := first - second;

dif;

end for;