gap> K:=PureCubicalKnot(3,1);;
gap> ViewPureCubicalKnot(K);;
