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