1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

type t =
  | Random
  | Val of int

let random = Random

let default = Val 0

let of_int n = Val n

let to_int = function Random -> Random.int 10000000 | Val n -> n