sig
  external add : GtkStock.item -> unit = "ml_gtk_stock_add"
  external list_ids : unit -> string list = "ml_gtk_stock_list_ids"
  val lookup : GtkStock.id -> GtkStock.item
end