[ Text ] contains: [ Text ]

var x := ['abc'] contains: ['a'].
 var y := ['abc'] contains: ['z'].
 Pen write: x, stop.
 Pen write: y, stop.