sub map_pairs(&@) {
  my $fn = shift;
  map {
    my $idx = $_ * 2;
    local ($a, $b) = @_[$idx,$idx+1];
    $fn->($a, $b);
  } (0..$#_/2);
}