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