#
# My fixed counter()
#
sub counter {
    my ($from, $to, $step) = @_;
    $step //= 1;
    my $value = $from;

    return sub {
        return if $value > $to;
        $value += $step;
    };
}