[ Oggetto ] ricorsivo

var r := Oggetto nuovo.
r on: ['∞'] fare: { :x
Stdout scrivi: x, stop.
(x < 3) vero: { self ricorsivo ∞ (x + 1). }.
}.
r ∞ 1.
1
2
3