external _gtkstock_init : unit -> unit = "ml_gtkstock_init"