external _gtktree_init : unit -> unit = "ml_gtktree_init"