reverseDo: aBlock | current | current <- high. [ current >= low ] whileTrue: [ aBlock value: current. current <- current - step ]