TIntegrate[integr1_, list_] := If[$VersionNumber === 11.1, 
     Module[{boole1, boole2, boole2p, boole3, boole4, comple, cosineboole, 
       cosineboolep, coshboole, coshboolep, e, functi, j, lower, sineboole1, 
       sineboole2, sinhboole1, sinhboole2, string8, stringnumera, trigon, 
       upper, variab}, stringnumera = ToString[Numerator[integr1], 
         InputForm]; If[Length[list] != 3, variab = ToString[list], 
        variab = ToString[First[list]]]; If[Length[list] != 3, Null, 
        upper = Last[list]]; If[Length[list] != 3, Null, 
        lower = First[Take[list, {2, 2}]]]; 
       If[StringCount[ToString[Integrate[integr1, list]], "Integrate"] != 
          0 || (StringCount[ToString[Integrate[integr1, list]], 
            "Integrate"] == 0 && StringCount[ToString[Integrate[integr1, 
              list]], "Hypergeometric"] != 0), boole1 = 1, boole1 = 0]; 
       If[(StringPosition[stringnumera, "Sin["] != {} && 
          StringPosition[stringnumera, "Log["] != {}) || 
         (StringPosition[stringnumera, "Cos["] != {} && 
          StringPosition[stringnumera, "Log["] != {}) || 
         (StringPosition[stringnumera, "Sinh["] != {} && 
          StringPosition[stringnumera, "Log["] != {}) || 
         (StringPosition[stringnumera, "Cosh["] != {} && 
          StringPosition[stringnumera, "Log["] != {}), boole2 = 1, 
        boole2 = 0]; If[Length[list] != 3, boole2p = 0, boole2p = 1]; 
       boole3 = boole2p*boole2*boole1; If[boole3 == 0, 
        e = Integrate[integr1, list], Null]; 
       If[StringCount[stringnumera, "Sin["] == 0 && 
         StringCount[stringnumera, "Cos["] == 0 && 
         StringCount[stringnumera, "Cosh["] == 0 && 
         StringCount[stringnumera, "Sinh["] == 0, 
        string8 = StringJoin[stringnumera, StringJoin[StringJoin[
            StringJoin[StringJoin[StringJoin[StringJoin[StringJoin[
                 StringJoin["*Sin[", variab], "]*Cos["], variab], "]*Sinh["], 
              variab], "]*Cosh["], variab], "]"]], string8 = stringnumera]; 
       If[StringCount[stringnumera, "Sin["] != 0, functi = "Sin[", Null]; 
       If[StringCount[stringnumera, "Cos["] != 0, functi = "Cos[", Null]; 
       If[StringCount[stringnumera, "Cosh["] != 0, functi = "Cosh[", Null]; 
       If[StringCount[stringnumera, "Sinh["] != 0, functi = "Sinh[", Null]; 
       If[StringCount[stringnumera, "Cos["] == 0 && 
         StringCount[stringnumera, "Sin["] == 0 && 
         StringCount[stringnumera, "Sinh["] == 0 && 
         StringCount[stringnumera, "Cosh["] == 0, functi = "Sin[", Null]; 
       j = 1; While[StringCount[StringTake[string8, 
           {First[First[StringPosition[string8, functi]]], 
            Last[First[StringPosition[string8, functi]]] + j}], "["] != 
         StringCount[StringTake[string8, {First[First[StringPosition[string8, 
               functi]]], Last[First[StringPosition[string8, functi]]] + j}], 
          "]"], Null; j++]; trigon = StringTake[string8, 
         {First[First[StringPosition[string8, functi]]], 
          Last[First[StringPosition[string8, functi]]] + j}]; 
       If[functi == "Sin[" || functi == "Cos[", 
        trigon = StringTake[trigon, {5, -1 + StringLength[trigon]}], Null]; 
       If[functi == "Sinh[" || functi == "Cosh[", 
        trigon = StringTake[trigon, {6, -1 + StringLength[trigon]}], Null]; 
       boole4 = Boole[ToString[Element[ToExpression[trigon]/
             Log[ToExpression[variab]], Complexes]] == "True"]; 
       comple = ToExpression[trigon]/Log[ToExpression[variab]]; 
       sineboole1 = boole3*boole4 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Sin["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[stringnumera, "Sinh["] == {} && 
         StringPosition[stringnumera, "Cosh["] == {} && 
         StringPosition[ToString[Integrate[(integr1/Sin[
                Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^(
                2*n + 1), {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[sineboole1 == True, 
        e = Sum[(First[Integrate[(integr1/Sin[Log[ToExpression[variab]]*
                   comple])*Log[ToExpression[variab]]^(2*n + 1), {
                ToExpression[variab], 0, 1}]]/(2*n + 1)!)*(-1)^n*
            comple^(2*n + 1), {n, 1, Infinity}] + Integrate[
           (Log[ToExpression[variab]]*comple)*(integr1/
             Sin[Log[ToExpression[variab]]*comple]), {ToExpression[variab], 
            0, 1}], Null]; sinhboole1 = boole3*boole4 == 1 && upper == 1 && 
         lower == 0 && StringPosition[stringnumera, "Sinh["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[ToString[Integrate[(integr1/Sinh[
                Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^(
                2*n + 1), {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[sinhboole1 == True, 
        e = Sum[(First[Integrate[(integr1/Sinh[Log[ToExpression[variab]]*
                   comple])*Log[ToExpression[variab]]^(2*n + 1), {
                ToExpression[variab], 0, 1}]]/(2*n + 1)!)*comple^(2*n + 1), 
           {n, 1, Infinity}] + Integrate[(Log[ToExpression[variab]]*comple)*
            (integr1/Sinh[Log[ToExpression[variab]]*comple]), 
           {ToExpression[variab], 0, 1}], Null]; cosineboole = 
        boole3*boole4 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Cos["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[stringnumera, "Sinh["] == {} && 
         StringPosition[stringnumera, "Cosh["] == {} && 
         StringPosition[ToString[Integrate[(integr1/(Cos[Log[ToExpression[
                    variab]]*comple] - 1))*Log[ToExpression[variab]]^(2*n), 
             {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[cosineboole == True, 
        e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[(integr1/
                 (Cos[Log[ToExpression[variab]]*comple] - 1))*
                Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                1}]])/(2*n)!)*(-1)^n*comple^(2*n), {n, 1, Infinity}], Null]; 
       cosineboolep = boole3*boole4 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Cos["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[stringnumera, "Sinh["] == {} && 
         StringPosition[stringnumera, "Cosh["] == {} && 
         StringPosition[ToString[Integrate[(integr1/Cos[
                Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^(
                2*n), {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[cosineboolep == True, 
        e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                (integr1/Cos[Log[ToExpression[variab]]*comple])*
                 Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                 1}]])/(2*n)!)*(-1)^n*comple^(2*n), {n, 1, Infinity}] + 
          Integrate[integr1/Cos[Log[ToExpression[variab]]*comple], 
           {ToExpression[variab], 0, 1}], Null]; coshboolep = 
        boole3*boole4 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Cosh["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[ToString[Integrate[(integr1/Cosh[
                Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^(
                2*n), {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[coshboolep == True, 
        e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                (integr1/Cosh[Log[ToExpression[variab]]*comple])*
                 Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                 1}]])/(2*n)!)*comple^(2*n), {n, 1, Infinity}] + 
          Integrate[integr1/Cosh[Log[ToExpression[variab]]*comple], 
           {ToExpression[variab], 0, 1}], Null]; 
       coshboole = boole3*boole4 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Cosh["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[ToString[Integrate[(integr1/(Cosh[
                 Log[ToExpression[variab]]*comple] - 1))*
              Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
              1}]], "Integrate"] == {}; If[coshboole == True, 
        e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[(integr1/
                 (Cosh[Log[ToExpression[variab]]*comple] - 1))*
                Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                1}]])/(2*n)!)*comple^(2*n), {n, 1, Infinity}], Null]; 
       sineboole2 = boole3 == 1 && upper == 1 && lower == 0 && 
         StringPosition[stringnumera, "Sin["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[stringnumera, "Sinh["] == {} && 
         StringPosition[stringnumera, "Cosh["] == {} && 
         StringPosition[ToString[Integrate[(integr1/(Sin[comple*
                  Log[ToExpression[variab]]] - comple*Log[ToExpression[
                   variab]]))*Log[ToExpression[variab]]^(2*n + 1), 
             {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[sineboole2 == True, e = Sum[(((Zeta[1 + 2*n]/PolyLog[1 + 2*n, 1])*
             First[Integrate[(integr1/(Sin[comple*Log[ToExpression[
                      variab]]] - comple*Log[ToExpression[variab]]))*
                Log[ToExpression[variab]]^(2*n + 1), {ToExpression[variab], 
                0, 1}]])/(2*n + 1)!)*(-1)^n*comple^(2*n + 1), 
          {n, 1, Infinity}], Null]; sinhboole2 = boole3 == 1 && upper == 1 && 
         lower == 0 && StringPosition[stringnumera, "Sinh["] != {} && 
         StringPosition[stringnumera, "Log["] != {} && 
         StringPosition[ToString[Integrate[(integr1/(Sinh[comple*
                  Log[ToExpression[variab]]] - comple*Log[ToExpression[
                   variab]]))*Log[ToExpression[variab]]^(2*n + 1), 
             {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
       If[sinhboole2 == True, e = Sum[(((Zeta[1 + 2*n]/PolyLog[1 + 2*n, 1])*
             First[Integrate[(integr1/(Sinh[comple*Log[ToExpression[
                      variab]]] - comple*Log[ToExpression[variab]]))*
                Log[ToExpression[variab]]^(2*n + 1), {ToExpression[variab], 
                0, 1}]])/(2*n + 1)!)*comple^(2*n + 1), {n, 1, Infinity}], 
        Null]; If[sineboole1 == False && sinhboole1 == False && 
         cosineboole == False && coshboole == False && cosineboolep == 
          False && coshboolep == False && sineboole2 == False && 
         sinhboole2 == False, e = Integrate[integr1, list], Null]; 
       Simplify[FunctionExpand[e]]], 
     Quiet[Module[{boole1, boole2, boole2p, boole3, boole4, comple, 
        cosineboole, cosineboolep, coshboole, coshboolep, e, functi, j, 
        lower, sineboole1, sineboole2, sinhboole1, sinhboole2, string8, 
        stringnumera, trigon, upper, variab, res}, 
       SetOptions[Sum, VerifyConvergence -> False]; stringnumera = 
         ToString[Numerator[integr1], InputForm]; If[Length[list] != 3, 
         variab = ToString[list], variab = ToString[First[list]]]; 
        If[Length[list] != 3, Null, upper = Last[list]]; 
        If[Length[list] != 3, Null, lower = First[Take[list, {2, 2}]]]; 
        If[StringCount[ToString[Integrate[integr1, list]], "Integrate"] != 
           0 || (StringCount[ToString[Integrate[integr1, list]], 
             "Integrate"] == 0 && StringCount[ToString[Integrate[integr1, 
               list]], "Hypergeometric"] != 0), boole1 = 1, boole1 = 0]; 
        If[(StringPosition[stringnumera, "Sin["] != {} && 
           StringPosition[stringnumera, "Log["] != {}) || 
          (StringPosition[stringnumera, "Cos["] != {} && 
           StringPosition[stringnumera, "Log["] != {}) || 
          (StringPosition[stringnumera, "Sinh["] != {} && 
           StringPosition[stringnumera, "Log["] != {}) || 
          (StringPosition[stringnumera, "Cosh["] != {} && 
           StringPosition[stringnumera, "Log["] != {}), boole2 = 1, 
         boole2 = 0]; If[Length[list] != 3, boole2p = 0, boole2p = 1]; 
        boole3 = boole2p*boole2*boole1; If[boole3 == 0, 
         e = Integrate[integr1, list], Null]; 
        If[StringCount[stringnumera, "Sin["] == 0 && 
          StringCount[stringnumera, "Cos["] == 0 && 
          StringCount[stringnumera, "Cosh["] == 0 && 
          StringCount[stringnumera, "Sinh["] == 0, 
         string8 = StringJoin[stringnumera, StringJoin[StringJoin[
             StringJoin[StringJoin[StringJoin[StringJoin[StringJoin[
                  StringJoin["*Sin[", variab], "]*Cos["], variab], 
                "]*Sinh["], variab], "]*Cosh["], variab], "]"]], 
         string8 = stringnumera]; If[StringCount[stringnumera, "Sin["] != 0, 
         functi = "Sin[", Null]; If[StringCount[stringnumera, "Cos["] != 0, 
         functi = "Cos[", Null]; If[StringCount[stringnumera, "Cosh["] != 0, 
         functi = "Cosh[", Null]; If[StringCount[stringnumera, "Sinh["] != 0, 
         functi = "Sinh[", Null]; If[StringCount[stringnumera, "Cos["] == 
           0 && StringCount[stringnumera, "Sin["] == 0 && 
          StringCount[stringnumera, "Sinh["] == 0 && 
          StringCount[stringnumera, "Cosh["] == 0, functi = "Sin[", Null]; 
        j = 1; While[StringCount[StringTake[string8, 
            {First[First[StringPosition[string8, functi]]], 
             Last[First[StringPosition[string8, functi]]] + j}], "["] != 
          StringCount[StringTake[string8, {First[First[StringPosition[
                string8, functi]]], Last[First[StringPosition[string8, 
                 functi]]] + j}], "]"], Null; j++]; 
        trigon = StringTake[string8, {First[First[StringPosition[string8, 
              functi]]], Last[First[StringPosition[string8, functi]]] + j}]; 
        If[functi == "Sin[" || functi == "Cos[", 
         trigon = StringTake[trigon, {5, -1 + StringLength[trigon]}], Null]; 
        If[functi == "Sinh[" || functi == "Cosh[", 
         trigon = StringTake[trigon, {6, -1 + StringLength[trigon]}], Null]; 
        boole4 = Boole[ToString[Element[ToExpression[trigon]/Log[ToExpression[
                variab]], Complexes]] == "True"]; 
        comple = ToExpression[trigon]/Log[ToExpression[variab]]; 
        sineboole1 = boole3*boole4 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Sin["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[stringnumera, "Sinh["] == {} && 
          StringPosition[stringnumera, "Cosh["] == {} && 
          StringPosition[ToString[Integrate[(integr1/Sin[Log[ToExpression[
                    variab]]*comple])*Log[ToExpression[variab]]^(2*n + 1), 
              {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
        If[sineboole1 == True, 
         e = Sum[(First[Integrate[(integr1/Sin[Log[ToExpression[variab]]*
                    comple])*Log[ToExpression[variab]]^(2*n + 1), 
                {ToExpression[variab], 0, 1}]]/(2*n + 1)!)*(-1)^n*
             comple^(2*n + 1), {n, 1, Infinity}] + Integrate[
            (Log[ToExpression[variab]]*comple)*(integr1/
              Sin[Log[ToExpression[variab]]*comple]), {ToExpression[variab], 
             0, 1}], Null]; sinhboole1 = boole3*boole4 == 1 && upper == 1 && 
          lower == 0 && StringPosition[stringnumera, "Sinh["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[ToString[Integrate[(integr1/Sinh[
                 Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^
                (2*n + 1), {ToExpression[variab], 0, 1}]], "Integrate"] == 
           {}; If[sinhboole1 == True, 
         e = Sum[(First[Integrate[(integr1/Sinh[Log[ToExpression[variab]]*
                    comple])*Log[ToExpression[variab]]^(2*n + 1), 
                {ToExpression[variab], 0, 1}]]/(2*n + 1)!)*comple^(2*n + 1), 
            {n, 1, Infinity}] + Integrate[(Log[ToExpression[variab]]*comple)*
             (integr1/Sinh[Log[ToExpression[variab]]*comple]), 
            {ToExpression[variab], 0, 1}], Null]; cosineboole = 
         boole3*boole4 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Cos["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[stringnumera, "Sinh["] == {} && 
          StringPosition[stringnumera, "Cosh["] == {} && 
          StringPosition[ToString[Integrate[(integr1/
                (Cos[Log[ToExpression[variab]]*comple] - 1))*
               Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
               1}]], "Integrate"] == {}; If[cosineboole == True, 
         e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                (integr1/(Cos[Log[ToExpression[variab]]*comple] - 1))*
                 Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                 1}]])/(2*n)!)*(-1)^n*comple^(2*n), {n, 1, Infinity}], Null]; 
        cosineboolep = boole3*boole4 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Cos["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[stringnumera, "Sinh["] == {} && 
          StringPosition[stringnumera, "Cosh["] == {} && 
          StringPosition[ToString[Integrate[(integr1/Cos[Log[ToExpression[
                    variab]]*comple])*Log[ToExpression[variab]]^(2*n), 
              {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
        If[cosineboolep == True, 
         e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                 (integr1/Cos[Log[ToExpression[variab]]*comple])*
                  Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                  1}]])/(2*n)!)*(-1)^n*comple^(2*n), {n, 1, Infinity}] + 
           Integrate[integr1/Cos[Log[ToExpression[variab]]*comple], 
            {ToExpression[variab], 0, 1}], Null]; coshboolep = 
         boole3*boole4 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Cosh["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[ToString[Integrate[(integr1/Cosh[
                 Log[ToExpression[variab]]*comple])*Log[ToExpression[variab]]^
                (2*n), {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
        If[coshboolep == True, 
         e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                 (integr1/Cosh[Log[ToExpression[variab]]*comple])*
                  Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                  1}]])/(2*n)!)*comple^(2*n), {n, 1, Infinity}] + 
           Integrate[integr1/Cosh[Log[ToExpression[variab]]*comple], 
            {ToExpression[variab], 0, 1}], Null]; coshboole = 
         boole3*boole4 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Cosh["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[ToString[Integrate[(integr1/
                (Cosh[Log[ToExpression[variab]]*comple] - 1))*
               Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
               1}]], "Integrate"] == {}; If[coshboole == True, 
         e = Sum[(((Zeta[2*n]/PolyLog[2*n, 1])*First[Integrate[
                (integr1/(Cosh[Log[ToExpression[variab]]*comple] - 1))*
                 Log[ToExpression[variab]]^(2*n), {ToExpression[variab], 0, 
                 1}]])/(2*n)!)*comple^(2*n), {n, 1, Infinity}], Null]; 
        sineboole2 = boole3 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Sin["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[stringnumera, "Sinh["] == {} && 
          StringPosition[stringnumera, "Cosh["] == {} && 
          StringPosition[ToString[Integrate[(integr1/
                (Sin[comple*Log[ToExpression[variab]]] - comple*
                  Log[ToExpression[variab]]))*Log[ToExpression[variab]]^
                (2*n + 1), {ToExpression[variab], 0, 1}]], "Integrate"] == 
           {}; If[sineboole2 == True, 
         e = Sum[(((Zeta[1 + 2*n]/PolyLog[1 + 2*n, 1])*First[Integrate[
                (integr1/(Sin[comple*Log[ToExpression[variab]]] - 
                   comple*Log[ToExpression[variab]]))*Log[ToExpression[
                    variab]]^(2*n + 1), {ToExpression[variab], 0, 1}]])/
             (2*n + 1)!)*(-1)^n*comple^(2*n + 1), {n, 1, Infinity}], Null]; 
        sinhboole2 = boole3 == 1 && upper == 1 && lower == 0 && 
          StringPosition[stringnumera, "Sinh["] != {} && 
          StringPosition[stringnumera, "Log["] != {} && 
          StringPosition[ToString[Integrate[(integr1/(Sinh[comple*
                   Log[ToExpression[variab]]] - comple*Log[ToExpression[
                    variab]]))*Log[ToExpression[variab]]^(2*n + 1), 
              {ToExpression[variab], 0, 1}]], "Integrate"] == {}; 
        If[sinhboole2 == True, e = Sum[(((Zeta[1 + 2*n]/PolyLog[1 + 2*n, 1])*
              First[Integrate[(integr1/(Sinh[comple*Log[ToExpression[
                       variab]]] - comple*Log[ToExpression[variab]]))*
                 Log[ToExpression[variab]]^(2*n + 1), {ToExpression[variab], 
                 0, 1}]])/(2*n + 1)!)*comple^(2*n + 1), {n, 1, Infinity}], 
         Null]; If[sineboole1 == False && sinhboole1 == False && 
          cosineboole == False && coshboole == False && cosineboolep == 
           False && coshboolep == False && sineboole2 == False && 
          sinhboole2 == False, e = Integrate[integr1, list], Null]; 
        res = Simplify[FunctionExpand[e /. {PolyLog[m_, 1] :> Zeta[m]}]]; 
        SetOptions[Sum, VerifyConvergence -> True]; res]]]
