gap> ap:=[[2,1],[2,1]];; #Arc presentation for the trivial knot

gap> L51:=ThreeManifoldViaDehnSurgery(ap,5,1);;
gap> D:=DijkgraafWittenInvariant(L51,CyclicGroup(5));
[ g1^4, g1^4, g1, g1, id ]

gap> L52:=ThreeManifoldViaDehnSurgery(ap,5,2);;
gap> D:=DijkgraafWittenInvariant(L52,CyclicGroup(5));
[ g1^3, g1^3, g1^2, g1^2, id ]
