noz(n) = fromdigits(select(sign, digits(n)))

{
	n=-1;
	for (r=0, 500,
		row = if (r==0, [1], vector(r+1, k, if (k==1 || k==r+1, 1, noz(row[k-1]+row[k]))));
		for (i=1, #row,
			print (n++ " " row[i]);
		);
	);
}

quit