let hv_of_string_pair_list pairs =
  let hv = hv_empty () in
    List.iter (fun (k, v) -> hv_set hv k (sv_of_string v)) pairs;
    hv