Class Indexed

with: aCollection pad: aValue do: aBlock | ls rs |

	1 to: ((ls <- self size) max: (rs <- aCollection size)) do:

		[:i | aBlock value: ((i <= ls) ifTrue: [ self at: i] ifFalse: [aValue])

			value: ((i <= rs) ifTrue: [ aCollection at: i] ifFalse: [aValue]) ]