sub irange_limited {

    my ($start, $end) = @_;

    my $n = $start;

    return Iterator {

        return
            wantarray ? $start .. $end    :
            $n > $end ? ($n = $start, ()) :
            $n++
            ;

        };

    }