hornerl(l,a):={ //ne marche pas pour les polys constants (de degre=0) local s,val,lq; s:=size(l); lq:=[]; val:=0; for (j:=0;j