[ Texte ] contient: [ Texte ]

var x := ['abc'] contient: ['a'].
 var y := ['abc'] contient: ['z'].
 Stdout écrire: x, stop.
 Stdout écrire: y, stop.