( scratchpad ) :: doit ( key assoc quot -- ) key assoc quot '[ key assoc [ 90 + ] change-at _ call ] change-at ; inline ( scratchpad ) H{ { "a" 0 } } dup "a" swap [ 1 + ] doit --- Data stack: H{ { "a" 1 } }