expected <- eval(parse(text="c(-2.75550591163035, -5.07593194247696, -7.25133134639565, -10.1518638849539, -14.5026626927913, -19.5785946352683, -29.0053253855826)"));                
test(id=0, code={                
argv <- eval(parse(text="list(-0.0290053253855826, c(95, 175, 250, 350, 500, 675, 1000))"));                
do.call(`*`, argv);                
}, o=expected);                

