removeAt: i | na | (i between: 1 and: self size) ifFalse: [ ^ self]. na <- Array new: self size - 1. (1 to: i-1) do: [:j | na at: j put: (self at: j)]. (i+1 to: self size) do: [:j | na at: j-1 put: (self at: j)]. ^ na