Select Code to Download

#!/home/rir/rakudo/parrot_install/bin/perl6

...
    die "dying no match"  unless  $m;
    say "$m<expression> =  $m.ast()";
}

   rule expression { <numeric> <op> <numeric> }

token rhs { <numeric> | <expression> }

   rule expression { <lhs> ( <op> <rhs> )+ }