1 2 3 4 5 6 7 8
#!/usr/bin/env raku my @g = lines.map: *.comb.Array; @g.map: *.say; say "---"; say @g[.[0]; .[1] .. .[1]+3] for (^@g X ^@g[0])[^4];