{
	k = -1;
	for (n=0, 200,
		rrr = rr;
		rr = r;
		r = vector(n+1);
		r[1] = r[#r] = 1;
		for (i=2, #r-1,
			r[i] = rr[i-1] + rr[i] + rrr[i-1];
		);

		if (n%2==0,
			for (i=1, #r,
				print (k++ " " r[i]);
			);
		);
	);
}

quit