external clear : tree_store -> unit
    = "ml_gtk_tree_store_clear"