big squish

This commit is contained in:
Swrup 2024-05-29 19:16:48 +02:00
parent fae867b35b
commit 55d2abefb4
124 changed files with 6931 additions and 8393 deletions

4
src/util.ml Normal file
View file

@ -0,0 +1,4 @@
let gen_uuid () =
let random_state = Random.State.make_self_init () in
Random.set_state random_state;
Uuidm.to_string (Uuidm.v4_gen random_state ())