RANDOM RAISE READ-FILE
RANDOM ( n1 -- n2 )  
<PFE-MISC>
returns random number with 0 <= n2 < n1)

reference: p4_random in ../src/misc.c:0292, export CO RANDOM