let create_vtable_name = fun db ?(prefix = "vtable_") ?(from = 0) () ->
let rec create = fun idx ->
let name = prefix ^ (string_of_int idx) in
match vtable_by_name_opt db name with
| None -> name
| Some _ -> create (idx + 1)
in
create from