sub iter {
  my @a = @_;
  sub { splice @a, 0, shift || 1 };
}