## For 3A_6+A_1
Read("GAP.txt");
beta  := [s1^-3, \1, s1^-1*s3^-2, s2^-1, s3^-4];;
gamma := [\1, s2^-1*s3, \1, s2^-1*s3, s1^-1*s2];;
braid := [s1^7, s2, s1^2*s3^3, s2^2, s3^7];;
K := 3;;
kappa := a1*a2;;
Size(init_group(0));
#> 42
## Perturbations:
#: one of the $A_6$ points
braid[1] := s1;;
Size(init_group(0));
#> 6
