How do you factor out the quotation below to avoid the boilerplate? the quotation stack effects are below: : add-at ( value key assoc -- ) rot [ ?adjoin ] curry change-at ; : remove-at ( value key assoc -- ) rot [ ?delete ] curry change-at ; : ?adjoin ( set elt -- set ) : ?delete ( set elt -- set )