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