sub s2 {
  my @r2;
  while (@_) {
    push @r2, [ splice @_, 0, 2 ];
  }
  return \@r2;
}