nb = [0]

{
	f = 0;
	for (n=1, 100 000,
		print (n " " v=if (1+f<=#nb, nb[1+f], 0));
		while (1+v>#nb,
			nb = concat(nb, vector(#nb));
		);
		nb[1+v]++;
		if (v==0,
			f=0,
			f++
		);
	);
}

quit