[ Objekt ] reagovať: [ Text ]

var x := Objekt nový.
 x on: ['reagovať:']  postup: { :a <- (a + ['!']).
 }.
 Stdout píšu: x abc.