{
	for (n=1, #row=vector(15),
		if (n<=2,
			row[n] = [1],
			row[n] = digits(fromdigits(concat(row[1..n-1]), n-1), n)
		);

		apply (d -> print (m++ " " d), row[n]);
	);
}

quit