sub makeToggle {
  my $limit = shift;
  my $count = 0;
  die "makeToggle() requires a positive argument\n" unless $limit > 0;
  return sub {
    !($count++ % $limit);
  }
}