block PolynomialEvaluator
 parameter Real a[:];
 input Real x;
 output Real y;
protected
 constant n = size(a, 1)-1;
 Real xpowers[n+1];
equation
 xpowers[1] = 1;
 for i in 1:n loop
 xpowers[i+1] = xpowers[i]*x;
 end for;
 y = transpose(a) * xpowers;
end PolynomialEvaluator;