>    restart; read `c:/Users/Asus/Google Drive/Aek/Pile Game2/Pile2.txt`;

>    read `c:/Users/Asus/Google Drive/Guess.txt`;

>    #Section 2.2, Higher moments for {1,-1}, general p=q

>    # First moment

>    A:=[seq(Mo1(n,0,1,[1,-1],[p,1-p]),n=1..20)]:

>    GuessC(A,N);

(N-1)^2*(N*p-1+p)/p = 0

>    B:=[seq(Mo1(20,s,1,[1,-1],[p,1-p]),s=0..20)]:

>    GuessC(B,S);

(S-1)^2*(S*p-1+p)/p = 0

>    # Second moment

>    A:=[seq(Mo1(n,0,2,[1,-1],[p,1-p]),n=1..20)]:

>    GuessC(A,N);

(N-1)^3*(N*p^2-p^2+2*p-1)*(N*p-1+p)^2/p^4 = 0

>    B:=[seq(Mo1(20,s,2,[1,-1],[p,1-p]),s=0..20)]:

>    GuessC(B,S);

(S-1)^3*(S*p-1+p)^2/p^2 = 0

>    # Third moment

>    A:=[seq(Mo1(n,0,3,[1,-1],[p,1-p]),n=1..30)]:

>    GuessC(A,N);

(N-1)^4*(-1+3*p-3*p^2+p^3+N*p^3)*(N*p^2-p^2+2*p-1)^2*(N*p-1+p)^3/p^10 = 0

>    B:=[seq(Mo1(30,s,3,[1,-1],[p,1-p]),s=0..30)]:

>    GuessC(B,S);

(S-1)^4*(S*p-1+p)^3/p^3 = 0

>