gap> X10:=RegularCWComplex(FiltrationTerm(F,10));;
gap> cup:=LowDimensionalCupProduct(X10);;
gap> cup([1,0],[0,1]);
[ 1 ]
