read PW123:

WOne([3,2,6]);
seq(WOne([2$i]),i=1..10):
seq(WOne([3$i]),i=1..20):

quit: