[ Objekt ] svara: [ Text ]

var x := Objekt ny.
x på: ['svara:'] göra: { :a <- (a + ['!']).
}.
Stdout skriva: x abc.
abc!