: increment-entry ( hashtable entry -- num ) of ?1+ dup zero? [ 1 + ] when ; : increment-in-hashtable ( hashtable entry -- hashtable ) 2dup increment-entry swap pick set-at ;