// USAGE: // S(serie, callback); // - serie: an array with the numerical serie. // - callback: a function (result) {...} where results will be sent. function S(o,l,v,e,r){for(e=[r=[V=o[i=0]]];q=o[i+1];r[i++]=q/V,V=q)e[i]=q-V;v=v?v+V:V;if((V!=1||l(eval(v)))&&i)S(e,l,v+"+"),S(r,l,v+"*")}