external _gtkpack_init : unit -> unit = "ml_gtkpack_init"