sub genclosure {
  my $bar;
  return sub { $bar++; }
}