[ Objekt ] odpovědět: [ Řetězec ] a-také: [ Řetězec ]

var x := Objekt nový.
 x na: ['odpovědět:a-také:']  udělat: { :a :b <- (a + b).
 }.
 Stdout psát: (x abc: ['def']), stop.
 Stdout psát: x a ['bc'], stop.