let
update_val_incr key tbl = update_val 1 key tbl