raku-rosettacode/programming_tasks/I/Input/Output_for_lines_of_text.md

Input/Output for lines of text

Short version:

say get for ^get;

Verbose version:

sub do-stuff ($line) {
    say $line;
}
 
my $n = +get;
for ^$n {
    my $line = get;
    do-stuff $line;
}