external bytes : int -> string = "todo_getrandom"

(* 128 random bits as 32 lowercase hex digits. *)
let token () =
  let b = bytes 16 in
  String.concat "" (List.init 16 (fun i -> Printf.sprintf "%02x" (Char.code b.[i])))