[ 物体 ] 递归

var r := 物体 新的。
 r 上: ['∞'] 做: { :x
 	Stdout 写入: x, 停止。
	(x < 3) 真: { self 递归 ∞ (x + 1)。 }。
 }。
 r ∞ 1。