#!/usr/bin/env raku use v6.d; grammar G_24_02_a { token TOP { [<report> \v]+ <report> } token report { ^^ <level> ** 1..5 $$ } token level { <value> \h? } token value { <digit> <digit>? } } my $input = chomp q:to/INPUT/; 77 6 4 2 1 1 2 7 9 7 6 7 8 1 3 2 4 5 8 6 4 4 1 12 3 99 INPUT say G_24_02_a.parse($input); dd $input