Begin
if isEmpty(msg)                    					 //  Si msg"-.."
then return getUserObject(morse)  					 //
else if charAt(msg,O)=='-' then   					 //   "-"
return decodeletterInmorse(leftChild(morse),substring(msg,1))		// ".."
else if charAt(msg,0)=='.' then
return decodeletterInMorse(rightChild(morse),substring(msg,1))
else return decodeLetterInMorse(morse,substring(msg,1))                 // 


Function decodeInmorse(ABin morse,ABin morseInUse,String msg); String 
In: alphabet morse morse dans un arbre binaire et une copie morseInuse pour pouvoir "remonter à la racine"
Do: renvoie le message en alphabet A-2
Begin