## For (A11+2A2)+A4 (nt118)
Read("GAP.txt");
beta  := [s1^-4*s3^-1, s2^-3, \1];;
gamma := [s2^-1*s3*s1^-1*s2, s2^-1*s1, \1];;
braid := [s1^8*s3^2, s2^5, s3];;
K := 1;;
kappa := a3*a4;;
# !! Use $x_1$ as the reference fiber !!
init_group(1);
qsize(g.1/g.2);
#> 6  ## This is the commutant!
simplify(g.1/g.2);
#> #I  there are 2 generators and 0 relators of total length 0
