testlist <- list(a = structure(c(1.36153676190041e-294, 1.29434219201094e-246,  3.32246642561816e-293, 2.90111100559942e+28, 3.96208881678809e-235,  9.33205558525586e+215, 7.04768428013434e+209, 7.43463557934533e+186,  4.98145346078249e+149, 5.45157784934946e-152, 6.54515206388988e-222,  7.22177463678357e-179, 4.2889431913299e-134, 3.78883381435806e+221,  3.74511363646803e-187, 7.78229181138966e+289, 2.41057020492931e-215,  1.62483585316095e-186, 60.7664724573775, 1.60514819592038e-144,  1.40205168062127e+262, 4.82567956981023e+242, 1.42339371989667e+253,  3.19411755889482e-118, 1.44949646609626e-168, 2.26629339306644e-08,  2.19983573112251e+36, 4.34268733728972e+247, 2.07863096656924e-85,  9.2075495674433e-10, 1.94319307205882e+266, 2.38882726681231e+135,  4.48745965045869e-151, 1.27552545049173e-246, 3.77232905066725e-06,  7.18360920478431e-162, 6.81574621165528e-141, 3.41673004264473e-87,  4.86734457643246e+258, 1.57628518772911e+305, 1.28145879707082e-165,  1.53940151782017e-24, 9.22133140557851e+51, 4.05565440421606e-197,  1.66351020057691e-213, 2.62837927026052e+47, 1.71984319816687e+34,  2.84884189025728e-209, 1.30800799409514e-138, 5.47923026628217e-84 ), .Dim = c(5L, 10L)), b = structure(c(5.72228721274324e-20,  1.94394031221191e+201, 9.50280923805167e+96, 1.53838405136517e+282,  8.53947772779799e+98, 3.23591277085664e+167, 1.66018973965867e+153,  2.36409440166535e+270, 4.33042688546262e-116, 4.20376443527286e-168,  3.47697109708451e+219, 5.55031181717872e+155, 3.38822331312253e+93,  3.25321808243545e+226, 1.78532717616784e+65, 3.72579655162208e+233,  1.12825959165336e-305, 4.04056838161037e-165, 1.22603617411589e+283,  2.35369298963845e+247, 6.95090323312456e+69, 7.68335531672227e+261,  4.94491995390414e-232, 9.94494611499981e-293, 1.37089540659616e+218,  3.50044439678878e-295, 1.16454543808995e+89, 6.15768873001161e+212,  4.10190065312179e-234, 1.79605689071217e-199, 3.63035714434087e-51,  5.49383420044781e-53, 7.56101805500287e-246, 4.52336219010364e+275,  3.17435316966714e-234, 1.24569130142533e-194, 9.04911479203819e-188,  1.63768655273512e+153, 6.0029986344021e+239, 2.97028825180812e+134,  2.41768288887254e-42, 8.74897230107297e+103, 2.404759278828e+41,  5.10287855740352e+277, 1.85569079745821e-69, 4.18050093606085e+89,  1.24072041753313e-93, 5.01256798244685e+148, 3.75218797108428e+130,  1.49291983500172e+247), .Dim = c(10L, 5L)), p = numeric(0))
result <- do.call(cort:::bivTau,testlist)
str(result)