to: limit do: aBlock | i | " optimize arithmetic loops " i <- self. [ i <= limit ] whileTrue: [ aBlock value: i. i <- i + 1 ]