library(random) provides an 
alternative API to the same random primitives.
random. If random, 
repeat the initialization procedure described with the function
random/1. Here is 
an example:
?- set_random(seed(111)), A is random(6). A = 5. ?- set_random(seed(111)), A is random(6). A = 5.