3.344517218879540187612150064906629162845142032384184231296181308553933037077\
39`40.544415567831294 + 
 (
   (
    -0.1485477119071767021013052151440859599074536813837608109071`33.39535399\
7794984 + 
    (
      0.0310418644392017076016338694507547378067228362281290619865`33.3953539\
97794984*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 + 
    (
      0.0720938877951915055574148646566432536158592227761161093898`33.3953539\
97794984*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.590852145042614216935828328669562372466147995403091898013`33.39535399\
7794984*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      0.9887172003659447927233183779882727747010008916318613425932`33.3953539\
9779499*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))*
   (1 + (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2)/
  ((1 - (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2*
   (1 - 
    (
      0.0955346818490717850795823557105012308337999126491450797333`33.3953539\
97794984*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 + 
    (
      0.1119959254551710819537916890839332654392455474119964733878`33.3953539\
97794984*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.0218004118277188949431093575704691040438124921305827762738`33.3953539\
97794984*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 - 
    (
      0.4563491951042632980797028684277473949844628174986243224342`34.6989700\
0433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))) - 
 0.38181177327940953084950554062811780210476066713708027226884576505761640674\
1398074958195680197513962709745784897718063705253572906069732`96.471943364273\
67/z^2 - 2.330293829302185764387245980079432843303686222446105332121905624689\
591982609016721844674647338159660271922624549212592666600718741443036`97.2035\
9255867058/z - 1.808967209037662290422583730602121802620476930541912326262049\
46901614465296333186923328426301447541570345888032999972276157379502750302`98\
.39964508983357*Sqrt[1 - z^(-1)]*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])] - 
 (0.1999730861600983189940368771947053768075404423968084334885168307795683570\
37468024913237859661115044102033439087953520803004709251960689`96.49241087047\
078*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/
  z^2 - (2.774507668957525187535201637680571205563068795367738937810354480791\
885236075411434999853665865209693205795247614595196723243526604238343`97.9479\
8165289995*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])])/z + 0.04648105006355353752654448206216009684062\
76558754679276735862750702910278804140791593951196038464047014011839384590319\
23466586798194671`97.96901354920743*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 + 
 (0.2166534301871432301379071116692146392992461098634690400625202276676106898\
94404132813443869049367259877960773610028675043919635852342403`97.40890092455\
608*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z^2 + 
 (1.2550529323064348066850022691361284951686156198480291386905955230010859027\
97216559977496440021863925855261122633929162600161728232493254`98.63567264592\
331*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z + 
 0.02585801040872161875390673800664924117871656228614625465330647168132543191\
2237169887339866783101406474309843630109672060763437251609311`99.008653353934\
18*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 - 
 (0.1450751923262968571085457100903436120825617412522927576655031720121624586\
68303798946240312997729003954568746225511823206046764782813165`98.29635541365\
259*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 + 
 (0.2734252213074891555641617038206206200880426843936752411416256973519744355\
8389579962839082724049448945556513891387955578382894902300048`99.1931279798454\
*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z - 
 (0.0682730631964971311487078414206172566836011274646973815463576484443158725\
23381303146420311531913152298241551421335486180842238661774582`99.29025496155\
559*(1 + 1.`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/
  z^2 + 103.11862680556927783690203330790943459999381341995296625467668588286\
7449324255904309590728035241584227158672475310069536189389525924587975`98.859\
10736504624*pi1[z] + (0.17515501637735744462437754089286379329646225799887205\
58699899966458804250892297226767290033067335658425560154450659697339972227427\
04443`99.35956177426108*(1 + 63.`99.99316057546969*z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]*pi1[z])/
  (Sqrt[1 - z^(-1)]*z^2) + 87.16048298942632054872490081263552334348985160949\
29179758459024125990002801857046700554915805041776540011368771679069645289257\
840037521`99.31357879522136*pi1[z]^2 + 
 (46.441700960219478737997256515775034293552812071330589849108367626886145404\
663923182441700960219478737997256515775034293552812078882920395`99.3472438217\
5247*pi1[z]^3)/z
