long a[35014],b,c=35014,d,e,f=1e4,g,h;
main(){
   for(;b=c-=14;h=printf("%04ld",e+d/f))
      for(e=d%=f;g=--b*2;d/=g)
	 d=d*b+f*(h?a[b]:f/5),a[b]=d%--g;
}