: change-set ( value key assoc quot -- ) [ rot ] dip curry change-at ; inline : add-at ( value key assoc -- ) [ ?adjoin ] change-set ; : remove-at ( value key assoc -- ) [ ?delete ] change-set