|n|

[
    n := 0.
    [true] whileTrue:[
       Delay waitForSeconds:1.
       Transcript showCR:n.
       n := n + 1.
    ]
] forkAt:9.