external alloc_iter : unit -> tree_iter = "ml_alloc_GtkTreeIter"