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