#The penultimate command calls Singular's Groebner basis functions.
e:=SpaceGroupBBNWZ(2,10);;
Q:=RelativeCentralQuotientSpaceGroup(e,4);;
n:=50;;Print(PoincareSeries(Q,n),"\n");;
p:=HilbertPoincareSeries(LHSSpectralSequenceLastSheet(Q));;
Print(p,"\n");;
