my $max_size = 0;
my $size = 0;
my $recopies = 0;
my $last_pow = 1;

while (++$size) {
  if ($size >= $max_size) {
    use integer;
    my $old_size = $size - 1;
    $max_size = $size + $old_size/5;
    $recopies += $old_size;
  }
  if (not $size%2 and ($size>>1) == $last_pow) {
    my $avg = $recopies/$size;
    printf("% 8d: % 9d recopies.  Avg %1.5f per element\n",
      $size, $recopies, $avg);
    $last_pow = $last_pow + $last_pow;
  }
}