Select Code to Download

use 5.010;
use Set::Scalar qw();
...
while (my @m = $iter->()) {
    say "@m";
}

use v6;
.say for cross (1, 2, 3), <a b c>, <I II III>