проблема с неверным селектором нижнего индекса в списке функций для цикла

Эта ошибка вывода eval (subs (x = 0, test [i]) ^ 2), недопустимый селектор нижнего индекса в проблеме с кленовым тестом — это test [i] в ​​цикле for, как избежать этой ошибки?

evolf := proc(z, f)
h1 := z + f;
h2 := z - f;
h3 := z*f;
h4 := z+diff(f,x);
h5 := z-diff(f,x);
h6 := z*diff(f,x);
h7 := subs(x=z, f);
test := [h1, h2, h3, h4, h5, h6, h7];
temp := 0;
for i from 1 to 9 do
    eval(subs(x=0,test[i])^2);
end do;
evalf(temp)
end proc;