T = matrix(200, 200);

{
	mx = 0;
	for (d=1, #T,
		for (k=1, d,
			n = d+1-k;
			if (n<=2 || k<=2, T[n,k]=1,
							  T[n,k] = T[n-T[n-1,k-1], k-T[n-2,k-2]]
								     + T[n-T[n-2,k-2], k-T[n-1,k-1]]
			);
			print (i++ " " T[n,k]);
		);
	);
}

quit