double@C[4],@L,@R,a=1e7,e=1/a,x;REP(i,(R-L)*a+1)x=L+i*e,a<?=abs(C[0]+(C[1]+(C[2]+C[3]*x)*x)*x);wt(a);