my $grammar = q {
  startrule: test
    test:      "primary"(?) "key"
};