[ 物體 ] 遞歸的

var r := 物體 新的.
r 上: “∞” 做: { :x
Stdout 寫: x, 句末.
(x < 3) 真正: { self 遞歸的 ∞ (x + 1). }.
}.
r ∞ 1.
1
2
3