ws := '' writeStream.
n timesRepeat: [ws nextPutAll: 'ha'].
ws contents.