-5.18783496004184362549304868836109692607436292220510423592914505510660224918\
2094639215490284840766181060598782134690730045716487125880204`97.235168765036\
04 + 
 (
   (
    -0.086911971974134941193848203849157281052866480018019542852`34.696167490\
873144 + 
    (
      0.0420172857398531731568174116036778451030037222694103050532`34.6961674\
90873144*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.0703654891349476792561831478288129862959800009796560348101`34.6961674\
90873144*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 - 
    (
      0.0472746737306836715591627146368181213703771359513592563169`34.6961674\
90873144*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))*
   (1 + (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2)/
  (1 - 
   (
     0.2092967454691926513334100010445329744877423520322495644837`34.69616749\
0873144*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 - 
   (
     0.4702138121951996948414501906855126861254072256101283594202`34.69616749\
0873144*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
   (
     0.5474588109245947942659509618995684920320554372366055127453`34.69897000\
433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z])) - 
 1.26532850489344185804215681376338814075845021994931098762746327346697773829\
6327253933454182508968687272504187376717767060066022977288278`96.650121264936\
86/z^2 + 8.901493085308859098678219916585342923040134480244265651623800819457\
288317056131761585399216888919988582371895857479664197492682133783396`97.5372\
8804805515/z - 0.078271586840275500153437346711479562167714195554124562245909\
290657948157795814305710762557558111894824001818657988692647962151696569134`9\
7.22383003488083*Sqrt[1 - z^(-1)]*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])] - 
 (0.4578977206778951773593051130469945826000318626315047303139874664558665265\
07790552906500783127892583914382997966291963499142771256590336`96.51505688368\
393*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/
  z^2 + (2.829553576036982747493909047424213402156349545813300542505227492794\
030217991423423098826628140948285117335583218795493491166227064516771`97.7375\
985230927*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])])/z + 0.12108545347055876914141231363468970108202\
13520871584472769757998450525049039021098294888965894779470873401897336092715\
00045328710230421`98.39203247862093*(1 - 0.015625`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 + 
 (0.7988877854127931697144064934233041002611820257708450602765815082148007682\
26547016254716987067552218354398464158327129601054069245609045`97.81905467516\
349*(1 - 0.015625`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^
    2)/z^2 - (2.5855784331714689559699652816687421890085684368351870099446380\
78590045078488224956024135214581168551685342849115036270617895838808586246`98\
.46563927830955*(1 - 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z + 
 0.03664684014841499256506056973731468421019920958920954457668150748487164386\
6549277051218632062218546590575175212740464938723692250013195`99.227795686028\
67*Sqrt[1 - z^(-1)]*(1 - 0.25`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 - 
 (0.1498012884746759651081980909152212346460313090378118553661009981459098186\
33293479802266402280730752898294143717119196897322236960308917`98.05024379928\
531*Sqrt[1 - z^(-1)]*(1 - 0.25`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 - 
 (0.8377321070567073640402585999671187551714698515254945052051085885011718301\
31769853680037441489491087641912275293161939217230766152983423`98.98582784321\
566*Sqrt[1 - z^(-1)]*(1 - 0.25`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z + 
 (0.0736683942373475284290988838001934110664477060964687567466595833837761002\
91634020460285974637273277820038981592031201131445834253282773`99.32120781744\
918*(1 - 0.0625`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^
    4)/z^2 - (0.0797288654268916578245457755205018269677094003822842851810282\
87684086748396064607152631255914562669962455351192838155520687264859128707`99\
.33707556051168*(1 - 0.0625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/z - 
 (3.8991029732698700716383174320498374855560293954531518524102120992474251150\
29809478716749986654242857016899126429277657480391141776472446`99.69897000433\
602*(1 - 2.`100.30102999566398*z)*pi1[z])/z
