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