Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

...

   print("$rv\n");
}

4 = 4
4 5 = 20
...
{1,2}{3,4,5} = Size error
{1,2}x3{4,5} = Type error
{1,2}x(3{4,5}) = '42'