10 lines
150 B
OCaml
10 lines
150 B
OCaml
|
type t = string [@@deriving eq, ord, show]
|
||
|
|
|
||
|
|
let fresh =
|
||
|
|
let r = ref 0 in
|
||
|
|
fun () ->
|
||
|
|
let id = "id_" ^ string_of_int !r in
|
||
|
|
incr r;
|
||
|
|
id
|
||
|
|
;;
|