T(n,k) = { my (v=0, f=1); for (r=2, oo, if (n==0 && k==0, return (v), v+=max(n%r, k%r)*f; f*=r; n\=r; k\=r; ); ); } t=0; for (n=0, 7!-1, print (n " " t=T(t, n))) quit