let put_all db kvs =
  Deferred.List.iter kvs ~f:(fun (k, v) -> put db k v)