testlist <- list(cip = -2.03911121055047e+240, x = c(8.18711001407657e+299,  0.00468189194076409, 9.28697320897767e-257, -4.47313953005781e+269,  -1.08462202709686e-247, -1.06960341877259e+114, -3.47955013064173e-216,  -8.9518097672271e+215, 1.38348243341209e-136, 6.24605057871232e+181,  -4.11367928127064e+80, NaN, 2.79007508688443e+291, -2.43672528268817e+290,  1.13722118274863e+165, 1.24928798805976e+186, -9.06013680652417e-190,  1.2437247084887e-163, 1.07356550066254e-51, -6.72069897320444e-236,  3.93269171816182e-254, -3.45570679530885e+99, 8.95779391235146e+89,  -1.04429299113846e+114, 2.77225047393114e+43, -2.18557342377325e+139,  -2.63807973264429e-55, -1.77673745822268e-44))
result <- do.call(waspr:::hmodeci,testlist)
str(result)