unsigned s,P,I,g[113316],o=10000,t=113316, by, Dik,T,Winter;
main(){for(;s=t,t-=14;Winter=printf("%04d",Dik+P/o),Dik=P%o)
while(I=--s*2)P=T*s+o*(Winter?g[s]:o/5),T=P/--I,g[s]=P-I*T;}