--- random.ml.orig	2025-12-12 06:31:55.844377486 +0100
+++ random.ml	2025-12-12 06:48:16.160346825 +0100
@@ -26,6 +26,11 @@
 *)

 external random_seed: unit -> int array = "caml_sys_random_seed"
+let print_int_array ia =
+  print_string " [|";
+  Array.iter (Printf.printf " %d") ia;
+  print_string " |]";
+  print_newline ()

 module State = struct

@@ -226,7 +231,7 @@

 let full_init seed = State.full_init default seed
 let init seed = State.full_init default [| seed |]
-let self_init () = full_init (random_seed())
+let self_init () = let seed = random_seed () in print_int_array seed; full_init (seed)

 (* Manipulating the current state. *)