Read("types.gap");
Read("perms2matrices.gap");

# n = number of points on which gg acts
# types = collection of conjugacy classes  

ntypes:=Size(types);;

LogTo("action.txt");

Print(n,"\n",ntypes,"\n");

for symnumber in [1..ntypes] do
  S:=types[symnumber];
  Print(Size(S)," ");
od;
Print("\n");

for symnumber in [1..ntypes] do
  S:=types[symnumber];
  s:=Representative(S);
  Print(Size(s)," ");
od;
Print("\n");


for symnumber in [1..ntypes] do
  Print("\n\n");
  S:=types[symnumber];;              
  for s in S do
    Print("\n");
    for g in s do
      p:=Permuted([1..n+2],g);
      sgn:=1;
      if p[n+1] <> n+1 then
        sgn:=-1;
      fi;
      for i in [1..n] do
        Print(sgn*p[i]," ");
      od;
      Print("\n");
    od;
  od;
od;

LogTo();