9 lines
136 B
OCaml
9 lines
136 B
OCaml
|
|
|
|
let counter = ref 0
|
|
|
|
let reset () = counter := 0
|
|
let gensym base =
|
|
incr counter;
|
|
Printf.sprintf "__generated_%s_%d" base !counter
|