let replace_exn t k v =
    match replace t k v with
    | `No_such_key -> raise Not_found
    | `Ok -> ()