testlist <- list(k1 = 3548298822054764544, k2 = 4.65302709860558e-228, k3 = -2.07138413434914e-207,      l_const = -7.4925286531192e-121, mu1 = 4.62641910488792e+142,      mu2 = -2.43706755645408e-210, x = c(2.531e-79, 5.1173e+289,      1.715e-264, -1.1046e+164, 9.7601e-293, -4.9294e-153, -2.0987e-47,      -8.4486e-184, 5.2705e+199, 1.2003e+190, 1.3485e-177, 8.5079e-54,      -6.7516e-224, -7.0978e-200, 1.0105e+50, 1.1245e-192, 2.4827e+286,      8.2044e-190))
result <- do.call(BAMBI:::dcos_manyx_onepar,testlist)
str(result)