package main;

my $quux = LuckyDeck->new(0..9);
print 'List Context',$/;
while (<$quux>) {
    print $_;
}
print $/;