Help for this page

Select Code to Download

Select or download this

  sub next_iter {
    my($count, $die, $current) = @_;
...
  ...
  my $cur;
  print $cur while $cur = next_iter(3, 6, $cur);

Select or download this
```
  ( (?>$die*) (.))
```