Create random-test.r

Rebol script