let
string_of_numeric_option =
fun
opt
->
List
.assoc opt numeric_opt_string_assoc