my @x = ('a' .. 'g');
    my $it = natatime 2, @x;
    while (my ($x,$y) = $it->())
    {
        print "$x $y\n";
    }