read `SMCboole.txt`:

K:=4:
t0:=time():

for k from 3 to K do
print(`The`, k, `moment about the mean of the r.v. number of 2-dim subcubes contained in the truth table of a random Boolean function is`):
gu:=MOMrk(2,k,n):

print(gu):
print(``):
print(`and in Maple notation `):
print(``):
lprint(gu):
print(``):

print(`hence the scaled`, k, `moment is `):
print(``):
gu:=SMOMrk(2,k,n):

print(gu):
print(``):
print(`and in Maple notation `):
print(``):
lprint(gu):
print(``):

print(`This took`, time()-t0, `seconds. `):
print(``):
t0:=time():

od:

print(``):
print(`This took`, time(), `seconds .`):
print(``):

quit: