i have to compute lie algebra condition by using maple 15, but currently i have code in maple 5.,

i already try to run in maple 15 but it say 'error,unable to match delimeters'

i try to find error, but i cant find it..

the coding are here...

check[lie]:=proc(A,n)

local i,j,k,l,m;

for i from 1 by 1 to n do

for j from 1 by 1 to n do

for k from 1 by 1 to n do

if A[i,i,k]<>0 then

RETURN ('Input is NOT a Lie algebra (',i,i,k,')=',A[i,i,k], 'is not zero');

elif A[i,j,k]+A[j,i,k]<>0 then

RETURN ('Input is NOT a Lie algebra,(',i,j,k,')+(',j,i,k,')=',A[i,j,k]+A[j,i,k],'is not zero');

else

for 1 from 1 by 1 to n do

if

simplify(sum(A[i,j,m]*A[m,l,k]+A[j,l,m]*A[m,i,k]+A[l,i,m]*A[m,j,k], m=1..n))<>0

then

RETURN('Input is NOT a Lie algebra---the Jac(',i,j,l,') is not zero');

fi;

od;

fi;

od;

od;

od;

print('Yes,input IS a Lie algebra');

end:

can anyone help me here? Thank You..

Here, i attached the result in printscreen