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

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