: set-at-each ( assoc sequence -- assoc' ) [ [ second ] [ first ] bi pick set-at ] each ; : push-at-each ( assoc sequence -- assoc' ) [ [ second ] [ first ] bi pick push-at ] each ;