let
add_entry ?(key=0) ?modi s = add_entry s ~key ?modi