let numeric_option_of_string = fun s -> fst (List.find (fun (_, s') -> s = s') numeric_opt_string_assoc)