testlist <- list(p = c(-4.30970958204322e+256, 5.14866674091077e+83, 4.38982931488039e+276,  -2.83918931926397e+230, 6.47599652406816e+188, -1.5600959424723e+246,  -7.50585834614888e+284, -9.27444379465874e+240, 9.49004278472289e+222,  -2.74091669569808e+256, -6.06628630504608e-44, -0.00101940368673233,  3.06107636871548e+238, 6.55275385389841e-240, -1.48399874396118e+47,  9.16904933188939e-35, -2.07467736400536e-284, 6.94131478577824e+164,  -5.5967216936932e-168, -3.58047314657879e-10, 4.92682010218359e-88,  -1.11188922097758e-72, 1.3976614997431e-176, -1.46673586226245e+64,  1.54710493323576e-298, 6.01409586841658e+221, 8.84504292234847e-195,  1.58469253118779e+132, -4.87411146232111e+199, -6.57814475580888e-121,  -3.95540666931765e-64, -6.06987427478822e-92, 1.99297925143313e+185,  2.76504354121682e-247, 1.73449647887861e-218, -7.99673422465593e+32,  -2.65451953001246e-24, 2.90992270379842e-226, 1.59363195528273e-85,  -9.6058602592391e-14, 1.94017041189738e+245, -708033289221.513,  2.70556548924223e-169, 1.94564217794711e-174, 2.16961927502633e-222,  2.86187280622422e+259, -1.70099699382665e-276, 5.99249482420488e+109,  -6.87851197370956e+103, -4.04479138133641e+229, 1.15534477548193e+107,  5.71273754056285e-194, 2.01701324239408e+253, -3.11231333158067e-229,  -1.34477648935595e-162, -2.19771425923763e-185, 9.33597072267938e-293,  7.34305010414498e-165, -1.04191463999044e-193, 2.15177012013628e+165,  -6.94313509841751e-208, -3.01900101394729e-156, -4.27377669195109e+148,  1.23323170463171e+130, 1.48547204511751e-143, -1.04310153114843e-116,  8.16764382473557e-111, -2.09545294904392e-22, -5.70400762505135e-238,  -2.07081855709675e-80, 8.5455382271307e+192, 3.13880924774272e-45,  -1.31829639664378e-67, -3.88007310706922e+111, -2.73349784924818e-273,  3.74346808450414e+144, -1.11691051946455e+197, 8.24572025426636e-140,  -3143310072.61663, -2.7154489829733e+175, -8.99302500161768e+140,  1.38164596936339e+132, 1.0427490088369e-173), x = c(1.3699322160573e-76,  3.42032101584627e-93, 8.27932373953685e-269, -4.36408839884835e-38,  -4271908349.16541, 7.9088447142729e+272))
result <- do.call(ptsuite:::get_Percentiles,testlist)
str(result)