let convert_id : id -> string = function
  | `STOCK s -> s
  | id -> Hashtbl.find id_table id