let create_column_name = fun table ?(prefix = "column_") ?(from = 0) () ->
let rec create = fun idx ->
let name = prefix ^ (string_of_int idx) in
match column_by_name_opt table name with
| None -> name
| Some _ -> create (idx + 1)
in
create from