recursive-grammar.p6

use v6;

my $s1 = 'AA foo; BB baz; AA bar;';
my $s2 = 'AA buzz;';

grammar G {
        rule TOP { [ [ <ta> | <tb> ] <.ws> ]+ }
        rule ta { 'AA' <name>';' { say $/<name>.Str; } }
        rule tb { 'BB' <name>';' { G.parse($s2); say $/<name>.Str; } }
        rule name { \w+ }
}

say ?G.parse($s1);