#interp'd
$mach_grammar = q
{
[...grammar_contents...]
}
main
{
my $mach_parser = new Parse::RecDescent ($mach_grammar);
#[...]
defined $ns85_parser->program_body($src_code) or die "bad grammar!";
}