carlos / todomvc-bakeoff Public

Download this file

1	external bytes : int -> string = "todo_getrandom"
2
3	(* 128 random bits as 32 lowercase hex digits. *)
4	let token () =
5	let b = bytes 16 in
6	String.concat "" (List.init 16 (fun i -> Printf.sprintf "%02x" (Char.code b.[i])))
7