read CAcount: print(` Here is an article regarding the 4D Cellular Automata given by the Moore neighborhoood `): f:=expand((1+x+x^2)*(1+y+y^2)*(1+z+z^2)*(1+w+w^2)-x*y*z*w): MamarP(f,[x,y,z,w],2,50000,400,t): quit: