sub toggle {
  my @states = @_;
  my $index = 0;

  return sub {
    return $states[ $index++ % ( scalar @states ) ];
  }
}