read Cheyne:
read oCheyne2:
print(`The following list of lists, of length 6 gives the empirical avergaes, variance, and standardized moments up to the 6th`):
print(`for the r.v. number of occurrences of the pattern 213 in Av_n(123) for n from 0 to 35 `):
for n from 0 to nops(CH35)-1 do
print(`n= `, n):
lprint(SMoms(CH35[n+1],t,6)):
od:
quit: