read P123: gu:=L20(q): print(`The First 20 terms of the Weight-Enumerators of the Symmetric Group according to the number of occurrences of tha pattern 123`): print(``): print(`By Shalosh B. Ekhad `): print(``): print(`based on the method described in Brian Nakamura and Doron Zeilberger's article`): print(`"Using Noonan-Zeilberger Functional Equations to enumerate (in Polynomial Time!) Generalized Wilf classes"`): print(`available free of charge from`): print(` http://www.math.rutgers.edu/~zeilberg/mamarim/mamarimPDF/Gwilf.pdf `): print(``): for i from 1 to 20 do print(`For the set of permutations of lenght`, i, `the weight-enumerator is`): print(sort(gu[i])): print(`and in Maple input form`): lprint(sort(gu[i])): od: quit: