reduce BLOCK LIST

##</code><code>##

&reduce(sub BLOCK, LIST)