asString | newString index | newString <- String new: self size. index <- 1. self do: [ :element | newString at: index put: element. index <- index + 1 ]. ^ newString