function w=horner(A,c)
n = length(A)
w = A(1)
for i=2:n,
     w = w*c+A(i)
end
endfunction