| n m |
n := 300.
m := 0.
World findATranscript: nil.
[m <= n] whileTrue: [
	Transcript cr; show: m.
	m := m + (10 raisedTo: m asString size - 1)]