Select Code to Download

    my $s;
    for [\~] 1..* {
        last if .chars >= 1_000_000;
        $s := $_;
    }

    my $s = first gather for [\~] 1..* -> $x, $y? {
        take $x if $y.chars >= 1_000_000;
    }