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