sub map_with_index(&@)
{
	my $code = shift;
	my $n = $#_;
	map {
		local $a = $_;
		local $b = $n - $_;
		local $_ = $_[$_];
		&$code
	} 0 .. $#_
}