external _gtkbroken_init : unit -> unit = "ml_gtkbroken_init"