Newick Perl 6 grammar test

newick.p6

use v6;

my $sample = q :to 'STOP';
(cat)dog;
dog cat

(dog,cat);
dog cat
STOP

grammar Newick {
    rule TOP { <node> ';' }
    token node {
        | <name>
        | '(' ~ ')' <node>+ % ',' <name>
    }
    token name { <alpha>* }
}

for $sample.split: "\n" {
    .say if Newick.parse: $_;
}

# vim: ft=perl6