let remove_exn t k =
    match remove t k with
    | `No_such_key -> raise Not_found
    | `Ok -> ()