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