MODULE test2;

IMPORT InOut, Strings;

VAR 
  chaine1, chaine2 : ARRAY[0..10] OF CHAR;
  result : ARRAY[0..10] OF CHAR;

BEGIN 
  chaine1 := "bonjour ";
  chaine2 := "madame.";
  Strings.Concat(chaine1,chaine2, result);
  InOut.WriteString(result);

END test2.