sub any (&@) {
	my $code_ref = shift;
	unshift @_, 0;
	reduce { $a or $code_ref->(local $_ = $b) } @_;
}

##</code><code>##

sub any (&@) {
	my $code_ref = shift;
	reduce { $a or $code_ref->(local $_ = $b) } 0, @_;
}