Paste: increment in hashtable

: increment-entry ( hashtable entry -- num )
    of ?1+
    dup zero?
    [
        1 +
    ] when ;

: increment-in-hashtable ( hashtable entry -- hashtable )
    2dup increment-entry
    swap
    pick
    set-at ;