function [y] = nest (a,x)
    n=length(a(:));
    y=a(n);
    for i=n-1:-1:1
        y = y * x + a(i);
    end
    fprintf('Degree %i\nP(%d) = %d\nSign %i\n',n,x,y,sign(y));
end