[ Vật ] đệ-quy

var r := Vật mới.
r trên: ['∞'] làm: { :x
Stdout viết: x, dừng-lại.
(x < 3) thật: { self đệ-quy ∞ (x + 1). }.
}.
r ∞ 1.
1
2
3