Paste: useful?

: 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 ;