Newick Perl 6 grammar test

newick.p6

use v6;
grammar Newick {
    rule TOP { <node> ';' }
    rule node {
        <name> |
        '(' (<neighbor=node>+)+ % ',' ')' <name>?
    }
    token name {  [ <.alpha> | <.digit> ]+ }
}

my @data = .split: "\n" given q :to 'EOF';
(cat)dog;
dog cat

(dog,cat);
dog cat
EOF

say Newick.parse($_) for @data;