\ Random generator test 4tH - (c) 1994,7 HanSoft & partners

cr ." Random generator test... Wait!" cr cr

10 array times                         ( initialize )
10 0 do 0 times i th ! loop

1000000 0 do 1 times random 10 mod th +! loop
                                       ( run random generator )
10 0 do i 7 .r loop cr                 ( report )
space 10 0 do ." ------ " loop cr
10 0 do times i th @ 7 .r loop cr
space 10 0 do ." ------ " loop cr
10 0 do times i th @ 100000 - 7 .r loop cr cr