[Newbies] Efficiently writing to a file

[Ian Oversby]

Is this a reasonable way of writing to a file?  It seems to run a
little slower than I would expect.

Thanks,

Ian

| myFile |
myFile := StandardFileStream fileNamed: 'c:/test.txt'

Transcript show: (Time millisecondsToRun: [
    1 to: 10000 do: [
	    :x | myFile nextPutAll: ((x asString) , String crlf)
	]]) asString , ' millseconds' ; cr.

myFile close.