external list_ids : unit -> string list = "ml_gtk_stock_list_ids"