Class Indexed

reverseDo: aBlock

	^ (1 to: self size) reverseDo: [:i | aBlock value: (self at: i) ]