[ Објект ] рекурзивно

var r := Објект Нова.
r он: ['∞'] до: { :x
Stdout написати: x, зауставити.
(x < 3) истина: { self рекурзивно ∞ (x + 1). }.
}.
r ∞ 1.
1
2
3