my $grammar = <<'__EOI__';
...
__EOI__