petit programme Mupad

clark0

salut
j'aimerais faire fonctionner ces deux petits programmes sous MUPAD mais en compilant j'ai des erreurs que je ne comrends pas. Qqun peut il m'aider ?
ils sont tres simples a comprendre

chiff_chaine:=proc(K:DOM_LIST) \\ ma procedure recois une liste K
local i: \\ i est la seule variable locale ici
begin
Z:=[ ]: \\ j'initialise cette liste vide
for i from 1 to nops(K) do \\i va de 1 au nombre d'elements de la liste K
Z:= Z.[K[ i]]: \\ a chaque tour, à Z on concatene K[ i]
end_for:
end_proc:

déja cette procedure m'affiche une erreur d'expréssion et je n'arrive pas à la rectifier

---

chiff_chaine:=proc(K,C,X) \\ ma procedure recois les listes K,C,X
local i,j,k:
begin
if nops(K) <> nops(C)
then("donner les listes K et C de meme taille"):
else
Z:=[]: \\ j'initialise cette liste vide
for k from 1 to nops(K) do \\ k va de 1 au nombre d'elements de la liste K
Z:= Z.[K[k]]: a chaque tour, à Z on concatene K[k]
end_for:

if nops(X) > nops(K) \\ si le nombre d'elements de X > nbre elements de K
then
j:=0:
for i from 1 to nops(X)-nops(K) do
Z[i+m]:=0:
while j <= nops(X)-nops(K) do
Z[i+m]:= Z[i+m]+C[j]*Z[i+j] mod 2:
i:=i+1:
end_while:
end_if:

print("le texte chiffré est le suivant:"):

for i from 1 to n do
Y[ i]:= X[ i]+Z[ i] mod 2:
end_for:
return(Y):

end_proc:

la encore c'est simple mais ca m'affiche des erreurs

a titre d'information cette procedure effectue un cryptage d'une liste donné en binaire