generate(z, runs) = {
	my (res = []);
	for (r=1, #runs,
		res = concat(res, vector(runs[r], i, z));
		z++;
		if (z==4, z=1);
	);
	return (res);
}

\\ seed
A288723 = [1]

{
	for (l=1, 3,
		A288725 = generate(3, A288723);
		A288724 = generate(2, A288725);
		A288723 = generate(1, A288724);
	);
}

print ("A288723 = " A288723);
print ("A288724 = " A288724);
print ("A288725 = " A288725);

quit