let value_to_key v =
  match v with
    Raw.String s -> string_to_key s
  | _ ->
      prerr_endline "value_to_key";
      raise Not_found