sub mapAdjPairs (&@) {
	my $code = shift;
	map { local ($a, $b) = (shift, $_[0]); $code->() } 0 .. @_-2;
}