sub seq {
        my ($i, $elems) = (0, \@_);
        seqsub {
            $i < @$elems
                ? ( $elems->[ $i++ ] )
                : do { $i = 0; () };
        }
    }