{ Inversion d'une chaine de caracteres        }
{ st : la chaine de carateres à inverser      }

chaine fonction inversionChaine(-> chaine st)
  chaine s
  chaine s1
  chaine s2
  entier lst <- longueur(st)
  si ( lst == 0 ) ou ( lst == 1 ) alors
    s <- st
    sinon
    s1 <- substring(st,0,1) 
    s2 <- inversionChaine(substring(st,1,lst)) 
    s <- concatener(s2,s1)
  fsi
  retourner s
fin fonction