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