from: low to: high | start size newArray | start <- low max: 0. size <- (high min: self size) + 1 - start max: 0. newArray <- self class new: size. 1 to: size do: [:i | newArray at: i put: (self at: start). start <- start + 1]. ^ newArray