gap> gc:=ReadLinkImageAsGaussCode("myknot2.png");
[ [ [ -4, 7, -5, 4, -7, 5, -3, 6, -2, 3, 8, -8, -6, 2, 1, -1 ] ], 
  [ 1, -1, -1, -1, -1, -1, -1, 1 ] ]
gap> IdentifyKnot(gc);;
PrimeKnot(3,1) + PrimeKnot(3,1)    modulo reflections of components. 
