[ Object ] respond: [ Text ] and: [ Text ]

var x := Object new.
 x on: ['respond:and:']  do: { :a :b <- (a + b).
 }.
 Pen write: (x abc: ['def']), stop.
 Pen write: x a ['bc'], stop.