#define F (E*a,E*b){L
#define G;return a;}
#define L for(c=i=0;i<54;++i)
#define X a[i]
#define C~0u&c,c>>=32
typedef typeof(0ull)E,A[55];A a,b,r,s,t,u,v,x,y;E c;i;j;k=2941;main(m,i){for(*a=*r=*x=1,*s=*y=2,*b=3;--k;u[53]?*x+=m=-m,Q(N(r),a),Q(N(s),b):0)Q(a,r),Q(b,s),M(P(u,b),Q(x,x)),M(P(v,a),Q(y,y)),N(~m?u:v),Q(Q(Q(u,v),u),b);for(N(b);k<1e3;){L X*=5;Q(a,a);for(printf("0.%d"+!!k++*2,j=a[52]/2946);j--;)Q(a,b);}}P F X=0;Q(a,b)G
Q F c+=X+b[i],X=C G
M F t[i]=0;L for(c=j=0;j+i<54;t[i+j++]+=C)c+=X*b[j];P(a,t)G
N F X^=~0u;++*a G
Note that non-ascii characters in the above source code will be escaped (such as \x9f).