do: aBlock | current | current <- low. [ current <= high ] whileTrue: [ aBlock value: current. current <- current + step ]