3.091077653526309742660962855334829063719950587424513945778079770492228155016\
34`40.510192047091785 + ((1 + (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2*
   (
    0.4485336344756250454735936815676153506729876494274762794115`33.994434710\
766924 + 
    (
      0.2671808736880716265894051504388339207556027950884559758565`33.9944347\
10766924*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 + 
    (
      1.1166703483288150140006081552141486058312888622605296872334`33.9944347\
10766924*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      1.8598111462222327030878147890860865095866928231960546547639`33.9944347\
1076693*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      1.443488273132528055622432847639330900154263543765081154722`33.99443471\
0766924*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z])))/
  ((1 - (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2*
   (1 - 
    (
      0.2538109625847018633290237230841521480411367231731414036979`33.9944347\
10766924*(1 - Sqrt[1 - z])^4)/(1 + Sqrt[1 - z])^4 - 
    (
      0.6722323339117220694447990030607439376276269413317544768687`33.9944347\
10766924*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.2793375394340017348254845062490173468591420474573103523446`33.9944347\
10766924*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
    (
      1.5946927760088607442193270318060081036704740027650259948676`34.6989700\
0433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))) + 
 0.96543621692325303625349709904838526496857310216285983742801643467129999850\
438836198915980575059573888185224909671264241191138260606681`96.86008485069874\
/z^2 - 3.11801760562691955799709427149081943441910070135693798874109744646465\
1885610524290685500027454632743529467488337143213849266805101502848`97.320697\
14363192/z - 2.12844771882340715865894284260851242834334415281244271520587943\
3556075821128242113108103379334702151639202089103902818549770349477574185`98.\
42741332546824*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
    (1 + Sqrt[1 - z^(-1)])] + (0.47020096504427280759976701401274143052015475\
34000701921271510822064742754502623742718655331994885801106373339389132913249\
22360327548589`96.84896834003283*Sqrt[1 - z^(-1)]*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/z^2 - 
 (3.9933520079216567817426575915196071277862233427694904438099317437981769957\
31136713646210126406926789156040712447476104139261896523103143`98.09459001328\
202*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/z + 
 0.08950885010466810077247141128554913138025445257021020325415232407579880514\
7252855843060138950290544929614594805468972330019849954155755`98.2798817246492\
*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 + 
 (0.9005300100865922909870966814774510521092714503920343653870476805029081880\
39699940874894509230024274580197287744262250619904722326656857`98.01582196513\
76*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z^2 + 
 (1.8737927744408502803698936468199087673434151330607453963677026358738351425\
2291763699904856610282053611731525482535116106689518289723408`98.856916280979\
97*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2)/z + 
 0.03623544815946497285811097575084959319473413361990711426243329023950243242\
3464167916951476835609326966598829455846457088258742635084159`99.209419421818\
45*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 - 
 (0.2002742946776593684317045681832192314261087629017556253897141620668115808\
30908907563429914812948629284620649751088478096533295607757048`98.45637108276\
509*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 + 
 (0.3327370528766606321833209538173749210343202587129376143457954393380918005\
38735562127942854529242023008548844593189245223992178058359177`99.32012899898\
382*Sqrt[1 - z^(-1)]*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z - 
 (0.0777258163513907127024964083006783204671331226894310563634153625619507963\
19446562855224328872062700538745663088572068187942651673387671`99.37548770310\
346*(1 + 0.015625`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^
    4)/z^2 + 129.955124269877608204142613539145414389254667068548246495890982\
853834079074251991839853927727114869390598122007753884966015790660667010121`9\
8.8374926218201*pi1[z] + (13.159472534785811491779321333168201513751599209654\
38750188446583496005976322560699066903120495806964243203455169886937827596525\
6495371928`99.4040141563842*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])]*pi1[z])/(Sqrt[1 - z^(-1)]*z^2) + 
 101.083302670928701136604650721614890624508229741829585599306040235385462299\
316616306265612438607374415709240861388148704074323485254024124`99.2388154844\
9644*pi1[z]^2 + (4.0000000000000000000000000000000000000000000000000000000000\
00000000000000000000000000000000000000000000000000000000000000000000650619274`\
99.51054501020658*(1 + 15.`99.97197127639974*z)*pi1[z]^3)/z
