1 USING: io io.files io.files.temp io.encodings.ascii random
5 : random-numbers-path ( -- path )
6 "random-numbers.txt" temp-file ;
8 : write-random-numbers ( n -- )
9 random-numbers-path ascii [
10 [ 200 random 100 - number>string print ] times
14 1000000 write-random-numbers ;