o[2<<21]={1};*b=o;*a;*c;*d;main(i,j,k){for(d=a=c=o+1;k=i<3e3;a=b,b=c,c=d)for(d+=9999,i=0;a[i]|a[i-1];i++)for(j=0;c[j]|k;d[i+j++]=k%10000,k/=1e4)k+=d[i+j]+a[i]*c[j];for(i+=j-2;i;)printf("%0*d",!k--?:4,c[--i]);}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).