3.201557029643641901206027680812612082456166915847279853682708733866567579526\
83`40.52544337397794 + 
 (
   (
    0.2416462464583843123682649118352827815726468546333679067662`33.843983910\
643196 + 
    (
      0.05691833117942633392817105220781975704892945817245291577`33.843983910\
643196*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 + 
    (
      0.2866292071519403448658926531367161660753121147066465283985`33.8439839\
10643196*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.5885532268111426719549583236040390274257721517969067558235`33.8439839\
10643196*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      0.4957092768499828981430581800154548882131373601147207664009`33.8439839\
10643196*(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.0845233942888161594078956837053865453238958141399153069585`33.8439839\
10643196*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 - 
    (
      0.0450738653552563213730790018132924024481991277337564300388`33.8439839\
10643196*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.2561143184413444280155268166133752118336697566343497628573`33.8439839\
10643196*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 - 
    (
      0.4932851457890898576693257095795025385456642129684202145556`34.6989700\
0433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))) + 
 0.39482201501054743925080011984758867310199619517422136914947965010799388910\
6709483099984660052564435214573521770735950518579216410910687`96.499464586191\
45/z^2 - 2.470445218741863971314623756866751735773275953531047268016162672043\
259553594077173105213849670679541139073003724796894047615706162386149`97.2420\
7558993113/z - 1.952605308269162438029617471610187254495169914722390420495838\
865800597944699386690571501647154775862840986048274141229579285396668123433`9\
8.44645525319243*Sqrt[1 - z^(-1)]*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])] + 
 (0.1871626316634687826380411097720862048787229634272840308832905839184858179\
43519236597313911442223813494315552846023546549247144789430089`96.47662586555\
838*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/
  z^2 - (2.853417608520853720882279122666450789709701095480382549667959331255\
101875615154267074082423447682513271640309848397810619110587891971037`97.9736\
7755396091*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])])/z + 0.06519505516809727054001396453481187114904\
33867928188763229983687530735984837303526284814728355680802418754161612253679\
00662196149214092`98.13971103148518*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 + 
 (0.2283463912720845220883342809342455335331822962364007924945652594840541150\
78873878843650959261240360543570860345075440927541381967292534`97.44375636740\
081*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z^2 + 
 (1.4253909629146567217054174269434770180462818524435491387483772917254555989\
11143781548939041358687741765377003186888167632572295793191682`98.71027583929\
788*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z + 
 0.03101788550161844970706726622566314871551261099630695852970322793519535936\
8647308096151450177461777834262828300063529524135733120411168`99.121070081930\
09*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 - 
 (0.1639740134688789917977432024273301067564021465572264590631878581681780257\
57368079242854697344934465807539328629510859360679414656404069`98.36643201814\
468*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 + 
 (0.3040115222910773361083936945885790365006282404353594106511062835871947389\
56336245873175462329488463780591510844460448883988039521461861`99.26224312831\
525*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z - 
 (0.0733743033451564981137642727280514607256608574395153501514317142862100053\
49604962511949945114973973983649615810948958900312576622976418`99.33846612445\
507*(1 + 1.`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/
  z^2 + 116.02909881062742589290343191022932948637742610801105449512626146510\
1087219899533987908977984071104708306964650877788460756532604754216801`98.915\
65536544823*pi1[z] + (0.19038588736669287459171471836180847097441549782486093\
02934673876585656794448149159529663079421017020027782776576804018847795899377\
22283`99.3829996588791*(1 + 63.`99.99316057546969*z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]*pi1[z])/
  (Sqrt[1 - z^(-1)]*z^2) + 93.73479446123882125559853879363697766307003113770\
58764597981265922278600740599002801277076170850701243123848142849810242020747\
05283145993`99.35834844398768*pi1[z]^2 + 
 (54.869684499314128943758573388203017832647462277091906721536351165980795610\
425240054869684499314128943758573388203017832647462286014677473`99.4330207143\
8539*pi1[z]^3)/z
