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