[ Lista ] catena

var x := Lista novu.
 x mette: ['a'] à: ['b'].
 var y := x catena.
 Stdout scrive: y, stop.

(Lista novu) mette:['a'] à:['b']