[ Object ] recursive

var r := Object new.
 r on: ['∞'] do: { :x
 	Pen write: x, stop.
	(x < 3) yes: { self recursive ∞ (x + 1). }.
 }.
 r ∞ 1.