for(a=[n=i=0];i<1e4;putstr(a[i++]=1+n%2))n+=!--a[n]