He he :)
print $_->(1,2,3) for sub{ (shift//return 0) + &$_ }; 6 [download]
In reply to Re: (almost) foldl by BrowserUk in thread (almost) foldl by dk