testlist <- list(highs = c(1.72921498345868e-299, -1.73796088898701e+256,  -7.2456991154956e-80, 1.12667703525596e-164, 3.41642006219608e+23,  2.3997058022793e+125, 2.98148623405383e+221, -4.23973384840024e-131,  1.34649690161545e-176, 3.32918116127134e-128, 8.58295525449306e+255,  2.94751005092506e+203, -4.49329546629783e+146, 1.46607109926487e+105,  -1.81904378390424e+265, 1.15230553696433e+232, -1.63183887479306e-139,  1.30012302181739e+147, NA, 8.81942609785513e-189, 3.0136631768681e+27,  1.39534044906957e-190, -1.0563320262811e-295, 7.73408259476878e-67,  -1.22578626232948e-176, 5.69489973212145e-228, 3.29603630635309e-219,  -9.79201674180223e+100, -1.2123763191234e-103, 2.38264355632489e+48,  2.26371028990075e+122, -6.82223340846329e+99, 4.35551944474565e-55,  -3.11369125604544e-195, 123966749109144, -6.63776561046652e+199,  1314.14294772167, -1.53965633467137e+49, -4.21624672138976e+154,  5.93426715717723e-06, -6.7344598149828e+28, 5.21033886785013e+262,  Inf, -8.93861452170166e+286, 1.82224925852604e-31, -4.56132906703913e+91,  -1.43220290455467e+150, 7.57511829578055e+124, 1.35468865866501e-215,  -9.93035504015737e+51, 1.33726082264308e-62, -5.86655476443065e-139,  -2.39525208310329e-185, 9.72171310834123e+258, NA, 1.95965577241695e+65,  -3.03606077990263e-218, -3.17605991250019e+230, 3.44476132846523e-53,  5.36380778652667e+286, 1.84528542547035e+109, 4.64546286571624e-162,  2.15523494860796e+204, -6.21290055724153e-25, -8.78504953694416e-71,  3.02653895654733e+240, -1.18483238266284e+175, 3.8141852844881e-53,  -2.13765145652651e-17, 9.97377271873528e-89, -6.48924053952291e-220,  -41.9059771177093, -2.7166504933493e+148, 2.30499070750037e+178,  5.43315232521246e+302, 5.4557834364323e+201, -1.35117581861612e-51,  0), lows = c(-1.13681462645627e-57, 3.13320742630356e-208, -1.54691665104439e-118,  NA, Inf, 0))
result <- do.call(stocks:::mdd_hl,testlist)
str(result)