USING: kernel sequences ;

IN: words

: set-stack-effect ( effect word -- )
2dup "declared-effect" word-prop =
[ 2drop ] [
[ nip changed-effect ]
[ nip subwords [ changed-effect ] each ]
[ swap "declared-effect" set-word-prop ] 2tri
] if ;