f:=[1];

f[1]:=(1,4,3,2);
f[2]:=(1,2,6,5);
f[3]:=(2,3,7,6);
f[4]:=(3,4,8,7);
f[5]:=(4,1,5,8);
f[6]:=(5,6,7,8);

c:=[1];

for i in [1..6]  do
  for j in [1..6] do
    c[6*(i-1)+j]:=f[i]*f[j]^-1;
  od;
od;

C:=Group(c,c[1]);