Select Code to Download

use strict;
use warnings;
...

Parse::RecDescent->Precompile($grammar, 'Parser')
   or die("Bad grammar\n");

use strict;
use warnings;
...
   }
   print("\n");
}

>make_parser.pl

...
0       1       1
1       0       1
1       1       0