Aptech Gauss 6.0.25: алгебраическое нелинейное уравнение

[Genius_Of_Evil]

eqSolveset; 
proc f(x); 
local f1; 
f1 = 78.5*exp(64.982-(7338.045/x[1])-8,185ln(x[1])+0.397(x[1]/513.15)^6)-1.8;
retp(f1); 
endp;
start = { 393 }; 
{ x,tcode } = eqSolve(&f,start);

выводится

Line 5 in C:\ ...\eq.e
Syntax error G0008 : 'retp'
Line 9 in C:\ …\eq.e
Undefined symbol G0025 : 'start'
Line 11 in C:\ …\eq.e
Undefined symbol G0025 : 'tcode'

но при этом

eqSolveset; 
proc f(x); 
local f1,f2,f3; 
f1 = 3*x[1]^3 + 2*x[2] + 5*x[3] - 10; 
f2 = -x[1]^2 - 3*x[2]^1 + x[3] + 5; 
f3 = exp(x[1]-1) + x[2]^3 - 4*x[3]; 

retp(f1|f2|f3); 
endp;
start = { -1, 3, -1 }; 

{ x,tcode } = eqSolve(&f,start); 

решается, т.е. ошибок нет. Тогда почему в первом примере – ошибки?