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

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

>    #Section 3.2, Higher Moment of Y_n and Z_n

>    #E[Y_1^r], 0<= r <=10

>    WinMo(1,10,[1,-1]);

[1, 4/3, 20/9, 44/9, 380/27, 4108/81, 17780/81, 269348/243, 4663060/729, 10091044/243, 218374420/729]

>    #E[Y_2^r], 0<= r <=10

>    WinMo(2,10,[1,-1]);

[1, 128/35, 3264/175, 116288/875, 5483328/4375, 64662592/4375, 653767104/3125, 377879777344/109375, 35659886910528/546875, 3785811669694528/2734375, 89315242836350784/2734375]
[1, 128/35, 3264/175, 116288/875, 5483328/4375, 64662592/4375, 653767104/3125, 377879777344/109375, 35659886910528/546875, 3785811669694528/2734375, 89315242836350784/2734375]

>    #E[(Y_1-mu)^r], 1<= r <=10

>    [seq(WinMoMean(1,r,[1,-1]),r=1..10)];

[0, 4/9, 20/27, 20/9, 1940/243, 25204/729, 14140/81, 6609460/6561, 128728340/19683, 103175452/2187]

>    #E[(Y_2-mu)^r], 1<= r <=10

>    [seq(WinMoMean(2,r,[1,-1]),r=1..10)];

[0, 6464/1225, 1118784/42875, 404091584/1500625, 164434588992/52521875, 16325833534912/367653125, 47171357844825408/64339296875, 4451586726409273664/321696484375, 23157366309021793528128/78815638671875...
[0, 6464/1225, 1118784/42875, 404091584/1500625, 164434588992/52521875, 16325833534912/367653125, 47171357844825408/64339296875, 4451586726409273664/321696484375, 23157366309021793528128/78815638671875...

>    #E[Z_1^r], 0<= r <=10

>    AllMo(1,10,[1,-1]);

[1, 2, 6, 26, 150, 1082, 9366, 94586, 1091670, 14174522, 204495126]

>    #E[Z_2^r], 0<= r <=10

>    AllMo(2,10,[1,-1]);

[1, 34/5, 1694/25, 120346/125, 11353502/625, 267830306/625, 37911923158/3125, 6260958603218/15625, 1181673445156582/78125, 250903418086998914/390625, 11838676796369911934/390625]
[1, 34/5, 1694/25, 120346/125, 11353502/625, 267830306/625, 37911923158/3125, 6260958603218/15625, 1181673445156582/78125, 250903418086998914/390625, 11838676796369911934/390625]

>    #E[(Z_1-mu)^r], 1<= r <=10

>    [seq(AllMoMean(1,r,[1,-1]),r=1..10)];

[0, 2, 6, 38, 270, 2342, 23646, 272918, 3543630, 51123782]

>    #E[(Z_2-mu)^r], 1<= r <=10

>    [seq(AllMoMean(2,r,[1,-1]),r=1..10)];

[0, 538/25, 26166/125, 2727022/625, 316187886/3125, 1794924814/625, 7408130065518/78125, 1398237253207486/390625, 296885126431091982/1953125, 70041456051611444446/9765625]
[0, 538/25, 26166/125, 2727022/625, 316187886/3125, 1794924814/625, 7408130065518/78125, 1398237253207486/390625, 296885126431091982/1953125, 70041456051611444446/9765625]

>