gap> K:=ClosedSurface(1);;                
gap> KK:=DirectProduct(K,K);
Simplicial complex of dimension 4.

gap> cup:=CupProduct(KK);;                
gap> cup(2,2,[1,0,0,0,0,0],[0,1,0,0,0,0]);
[ 0 ]
