-3.56776552225639749137550535960118541721882863058657818968458260517285710091\
0487577737384348394294363484646846463997971422792138339909632`97.033679427096\
02 + 
 (
   (
    -0.1119645613852661767517851340130985226045283970562633726167`34.83990059\
633793 + 
    (
      0.0534905557298532196290201158024986412172772415035700113172`34.8399005\
9633793*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 + 
    (
      0.098489049709188935042573643831539288743847650598739017443`34.83990059\
633793*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 - 
    (
      0.0543437106558009163508892724837060036647727034608762322713`34.8399005\
9633793*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z]))*
   (1 + (1 - Sqrt[1 - z])/(1 + Sqrt[1 - z]))^2)/
  (1 - 
   (
     0.1286692367619911718121073203395104884163351805140699334121`34.83990059\
633793*(1 - Sqrt[1 - z])^3)/(1 + Sqrt[1 - z])^3 - 
   (
     0.5923277148068738315704049999925767543881388067797792481496`34.83990059\
633793*(1 - Sqrt[1 - z])^2)/(1 + Sqrt[1 - z])^2 + 
   (
     0.3508634376503072929488454649898294435318907545024100980241`34.69897000\
433602*(1 - Sqrt[1 - z]))/(1 + Sqrt[1 - z])) - 
 1.36498162277135782432818142894976952835232618125265688945960492356624566947\
1944818831715456452295500223986615264957685224763619219427655`96.646401481398\
33/z^2 + 5.596767438286374850356002340615713621767636284435772295218985134525\
325776705161974831129569899018620406820522456617739949905085158132784`97.3001\
6673184353/z - 0.175259288519609718633196364312391175805887288321288144663709\
101637083918092870728353902937557299771899611169415281296441801465232185993`9\
7.51014149496169*Sqrt[1 - z^(-1)]*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])] - 
 (0.5358560380232845751764867684810616991119670322286622632193685788057133824\
50195979457868734014791566710286934628363919111075775966737628`96.54656219484\
008*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])])/
  z^2 + (1.727685485818814540627678206977035487541378532465447587228959704622\
824770850928019165111790398283813621401804116756240035960007305116031`97.4845\
3518616405*Sqrt[1 - z^(-1)]*Log[(-1 + Sqrt[1 - z^(-1)])/
     (1 + Sqrt[1 - z^(-1)])])/z + 0.07793843969289923345647605023206371234390\
33107273748850082449625266353336236385354568513590084741964507922627765100156\
6151997868085557`98.1344563146495*(1 - 0.015625`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^2 + 
 (0.4990933453986191383269397370914223594811758294249476149630021332401252899\
88997760190289009487402443449175007869403030102104349773411638`97.58565055581\
731*(1 - 0.015625`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^
    2)/z^2 - (1.8439792240976511229813722798651380272901888095637626897641369\
53923485679592920159049995412536499459648012242607219719748440868817960173`98\
.27825901883264*(1 - 0.015625`100./z)*
   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.25`100./z)*
  Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3 - 
 (0.1310381063186874889148870792097161163304093137281365685428400663136555369\
73620249952042462664874857043919654008196078810615272712557085`97.96592049656\
638*Sqrt[1 - z^(-1)]*(1 - 0.25`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z^2 - 
 (0.6740233427457079092536200228365865978676679424485776276721569582647532226\
51120923236833568341148396312494852582807732993926058977286074`98.84958975969\
145*Sqrt[1 - z^(-1)]*(1 - 0.25`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^3)/z + 
 (0.0692934486518795610979412466592406124220788617066969348031646241683477673\
57290534579315180318395549954872878956165228501479826467860887`99.28762455814\
105*(1 + 0.015625`100./z)*Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^
    4)/z^2 - (0.0653046691444755167509379352718947672625749914879714084356464\
46338041269370190811705271602334873450024404962229103508520805619589523513`99\
.20535003056429*(1 + 0.015625`100./z)*
   Log[(-1 + Sqrt[1 - z^(-1)])/(1 + Sqrt[1 - z^(-1)])]^4)/z - 
 (0.0609234839573417198693487098757787107118129593039554976939095640507410174\
22340773104949218541472544640889048850457463398131111590257342`99.69897000433\
602*(1 - 65.`100.00673338265896*z)*pi1[z])/z
