f:=[1]; f[1]:=(1,4,3,2); f[2]:=(1,6,10,5); f[3]:=(2,7,11,6); f[4]:=(7,3,8,12); f[5]:=(4,5,9,8); f[6]:=(9,10,11,12); 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,[1]);