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