{ 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, n/2+1, print (k++ " " r[i]); ); ); ); } quit