-3.87080890631508533621422685846890918149`19.723485539309728 + 
 (
   (
    1.2467789154662350141581205589999227825337762882881527173698`34.125502768\
61297 + 
    (
      0.2310966873105028427107496449412317106349725699812777552936`34.1255027\
68612975*(1 - Sqrt[1 - z])^5)/(1 + Sqrt[1 - z])^5 + 
    (
      0.318195209438011730229105877853759887331093157772625678818`34.12550276\
8612975*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 + 
    (
      0.3397267791029947098581841262949099384138675156361954191919`34.1255027\
68612975*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.1227026623631298272714763396433356496245165244450241339047`34.1255027\
68612975*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      0.8533090046475640563057748629809496017630800414896935170137`34.1255027\
6861297*(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.2203987818469021298769974467022182784408396730312614143891`34.1255027\
68612975*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 - 
    (
      0.038235071348134312991007886320136837206258027348622823311`34.12550276\
8612975*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 - 
    (
      0.0667244234927105598891952754938626221512756194311200778329`34.1255027\
68612975*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      0.5056808423036185899622938770531272585367799301957004296753`34.6989700\
0433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))) + 
 0.76324130318145801896991317016091004412423151572257336949446688486316282603\
19606449498479440522737459396523406697682`96.13468512178783/z^2 + 
 1.83864999137335550831238421649548771314923768597253155383578604509147062350\
32801608517195029035031673458087951857346`96.45823297680468/z - 
 2.82935111702191291109681551121070481826453349227803617417597124193529746014\
6965285556115555263561469017947132900981233994436084822038534`97.6181361480708\
*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])] + 
 (1.2664951414289937823044829120531039305037917083832197121421656284365511629\
71240404576318600891495165126932320330779753229253355454039969`96.68241363453\
205*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/
  z^2 + (0.439418209854774034682735547762128207381723189343281136869294878433\
225726673452964182159179006036220895379524209026365400111816034484223`96.5180\
3339249386*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])])/z + 3.18760434532489743142327213422690766037569\
88741384270067726256642233719235165066243368957229033342815443865864331901428\
70386243876987893`98.42619040330989*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 - 
 (0.7711691935625188212272344678484309392878386732725786831738033411368984205\
71735777727476794213816988952735586728697352887059641948594862`97.32130057426\
168*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z^2 + 
 (0.8871721768430165831297785661536790200480023751002229944393472009392049192\
81509766416663296001903683163124935374485252163794278790833258`97.788562588459\
*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z + 
 0.95432207352210964238559310415098794100565405926850363152948367794178023621\
1382179340875232540780197712846177156417499615918273096733114`98.939472757492\
01*Sqrt[1 - z^(-1)]*(1 + 1.`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 + 
 (0.2212186224595661932048815817431622271104189876304832568487330465012424374\
88815020525348657216339573039276537498973917037751061637234474`97.72589819349\
423*Sqrt[1 - z^(-1)]*(1 + 1.`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 - 
 (0.9164069846469691136727731846774735113542556599783474919200933410166193014\
00449391635263053662506809321320532185653429793635341917456662`98.66783398488\
572*Sqrt[1 - z^(-1)]*(1 + 1.`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z + 
 0.06530466914447551675093793527189476726257499148797140843564644633804126937\
0190811705271602334873450024404962229103508520805619589523513`99.205350030564\
32*(1 - 0.25`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4 - 
 (0.1681716143248361962544066391018664828527548932044541815875905710981753208\
83899338941115278973743941368101245897611255651943591819770345`99.26899715583\
32*(1 - 0.25`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/
  z^2 - (0.120219959106875383109681199023260821551558507057401910983803685304\
121427704214903366522722480107942090381862285395095231483072426168285`99.1662\
8376517897*(1 - 0.25`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/z + 
 94.7357349669914128837332174803228440413116979139026662054213536596300829103\
34284580325989317591996858348496503240130209832158623929257507`98.61916625876\
948*pi1[z] + (2.8024802620377191139900406542858206927433961279819528939198399\
46334086801427675562827664052907737053480896247120992396954346552707593327`99\
.20487593494755*(1 + 3.`99.8750612633917*z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]*pi1[z])/
  (Sqrt[1 - z^(-1)]*z^2) + 137.8373344573913543992867065075868762758405849140\
79624154641251224324621260256758862787244524569187881934480645498326126459847\
441898639189`99.25204252895156*pi1[z]^2 + 
 (0.7256515775034293552812071330589849108367626886145404663923182441700960219\
47873799725651577503429355281207133058977028710689207082489814`99.09742342420\
613*(1 + 63.`99.99316057546969*z)*pi1[z]^3)/z
