read `PDSn`: N:=10: print(`# The set S_n weight enumerated by `): print(`# PROD( t[i]^(# of copies of p[i]) ), `): print(`# where p[i] is the i-th length 3 pattern `): print(`# (considering the patterns in lex. order) `): print(`# for n up to`, N): printf("\n\n"): printf("L10:="): lprint([seq(FS3full(n,[seq(t[i],i=1..6)]),n=1..N)]): printf(":\n\n"): printf("### This took %f seconds.\n\n", time()): quit: