let int high = Int32.(to_int_trunc @@ (rand_int32 () % of_int_trunc high))

let random_config = Utils.get_global_arg ~arg_name:"randomness_lib" ~default:"stdlib"

let random_lib =

match random_config with

| "stdlib" -> (module Base.Random : Random)

| "for_tests" -> (module Random_for_tests : Random)

| _ ->

invalid_arg

@@ "Rand.random_lib: invalid setting of the global argument randomness_lib, expected one of: \

module Lib = (val random_lib)

log_main_domain_to_stdout=true

backend=cc

log_level=0