function PolynomialEvaluator2
    input Real a[:];
    input Real x;
    output Real y;
protected
    Real xpower;
algorithm
    y := 0;
    xpower := 1;
    for i in 1:size(a, 1) loop
        y := y + a[i]*xpower;
        xpower := xpower*x;
    end for;
end PolynomialEvaluator2;